From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2132/CH2/EX2.1/Example2_1.sce | 17 +++++++++++++++++
 2132/CH2/EX2.2/Example2_2.sce | 14 ++++++++++++++
 2132/CH2/EX2.3/Example2_3.sce | 16 ++++++++++++++++
 2132/CH2/EX2.4/Example2_4.sce | 15 +++++++++++++++
 2132/CH2/EX2.5/Example2_5.sce | 12 ++++++++++++
 2132/CH2/EX2.6/Example2_6.sce | 22 ++++++++++++++++++++++
 2132/CH2/EX2.7/Example2_7.sce | 14 ++++++++++++++
 7 files changed, 110 insertions(+)
 create mode 100755 2132/CH2/EX2.1/Example2_1.sce
 create mode 100755 2132/CH2/EX2.2/Example2_2.sce
 create mode 100755 2132/CH2/EX2.3/Example2_3.sce
 create mode 100755 2132/CH2/EX2.4/Example2_4.sce
 create mode 100755 2132/CH2/EX2.5/Example2_5.sce
 create mode 100755 2132/CH2/EX2.6/Example2_6.sce
 create mode 100755 2132/CH2/EX2.7/Example2_7.sce

(limited to '2132/CH2')

diff --git a/2132/CH2/EX2.1/Example2_1.sce b/2132/CH2/EX2.1/Example2_1.sce
new file mode 100755
index 000000000..52551238f
--- /dev/null
+++ b/2132/CH2/EX2.1/Example2_1.sce
@@ -0,0 +1,17 @@
+//Example 2.1
+clc;
+clear;
+close;
+
+//Given data :
+V=10;//in m^3
+W=80;//in kN
+g=9.81;//gravity accelerat
+w_water=9.81;//specific weight of water
+format('v',6);
+w=W/V;//specific weight in kN/m^3
+disp(w,"Specific weight of liquid in kN/m^3 : ");
+mass_density=w*1000/g;//kg/m^3
+disp(mass_density,"Mass density of liquid in kg/m^3 : ");
+specific_gravity=w/w_water;//unitless
+disp(specific_gravity,"Specific gravity : ");
diff --git a/2132/CH2/EX2.2/Example2_2.sce b/2132/CH2/EX2.2/Example2_2.sce
new file mode 100755
index 000000000..3868baa09
--- /dev/null
+++ b/2132/CH2/EX2.2/Example2_2.sce
@@ -0,0 +1,14 @@
+//Example 2.2
+clc;
+clear;
+close;
+
+//Given data :
+p1=750;//N/cm^2
+p2=1400;//N/cm^2
+dvBYV=-0.150;//in %
+format('v',9);
+dp=p2-p1;//in N/cm^2
+dp=dp*10^4;//in N/m^2
+K=-dp/(dvBYV/100);//N/m^2
+disp(K,"Bulk modulus(N/m^2) : ");
diff --git a/2132/CH2/EX2.3/Example2_3.sce b/2132/CH2/EX2.3/Example2_3.sce
new file mode 100755
index 000000000..9588365ab
--- /dev/null
+++ b/2132/CH2/EX2.3/Example2_3.sce
@@ -0,0 +1,16 @@
+//Example 2.3
+clc;
+clear;
+close;
+
+//Given data :
+Kwater=2.10*10^6;//kN/m^2
+Kair=140;//kN/m^2
+dvBYV=-1;//in %
+format('v',9);
+//For Water : 
+dp=-Kwater*dvBYV/100;//kN/m^2
+disp(dp,"Increase of pressure in water in kN/m^2");
+//For Air : 
+dp=-Kair*dvBYV/100;//kN/m^2
+disp(dp,"Increase of pressure in air in kN/m^2");
diff --git a/2132/CH2/EX2.4/Example2_4.sce b/2132/CH2/EX2.4/Example2_4.sce
new file mode 100755
index 000000000..3d692e27e
--- /dev/null
+++ b/2132/CH2/EX2.4/Example2_4.sce
@@ -0,0 +1,15 @@
+//Example 2.4
+clc;
+clear;
+close;
+
+//Given data :
+A=0.2;//m^2
+dy=0.02/100;//m
+du=20/100;//cm/s
+mu=0.001;//Ns/m^2
+tau=mu*du/dy;//in N/m^2
+F=tau*A;//N
+disp(F,"Force required in N : ");
+Power=F*du;//Watts
+disp(Power,"Power required in W : ");
diff --git a/2132/CH2/EX2.5/Example2_5.sce b/2132/CH2/EX2.5/Example2_5.sce
new file mode 100755
index 000000000..c790616a5
--- /dev/null
+++ b/2132/CH2/EX2.5/Example2_5.sce
@@ -0,0 +1,12 @@
+//Example 2.5
+clc;
+clear;
+close;
+//Given data :
+format('e',10);
+mu=0.1;//Ns/m^2
+Sp_gravity_liquid=2.1;
+mass_density_water=1000;//in kg/m^3
+rho=Sp_gravity_liquid*mass_density_water;//kg/m^3
+v=mu/rho;//m^2/sec
+disp(v,"Kinematic viscosity of liquid in m^2/sec : ");
diff --git a/2132/CH2/EX2.6/Example2_6.sce b/2132/CH2/EX2.6/Example2_6.sce
new file mode 100755
index 000000000..9cdcc4e4b
--- /dev/null
+++ b/2132/CH2/EX2.6/Example2_6.sce
@@ -0,0 +1,22 @@
+//Example 2.6
+clc;
+clear;
+close;
+//Given data :
+format('v',6);
+d=2;//in mm
+d=d/1000;//in m
+sigma_water=0.073;//N/m
+sigma_mercury=0.510;//N/m
+//Water-glass contact
+w1=9.81;//kN/m^3(specific weight of water)
+w1=w1*10^3;//N/m^3
+theta=0;//in degree
+h=4*sigma_water*cosd(theta)/w1/d;//in mm
+disp(h*1000,"capillary rise for water glass contact in mm : ");
+//Mercury-glass contact
+w2=13.6*9.81;//kN/m^3(specific weight of mercury)
+w2=w2*10^3;//N/m^3
+theta=130;//in degree
+h=4*sigma_mercury*cosd(theta)/w2/d;//in mm
+disp(h*1000,"capillary rise for mercury glass contact in mm: ");
diff --git a/2132/CH2/EX2.7/Example2_7.sce b/2132/CH2/EX2.7/Example2_7.sce
new file mode 100755
index 000000000..ae74b6cb6
--- /dev/null
+++ b/2132/CH2/EX2.7/Example2_7.sce
@@ -0,0 +1,14 @@
+//Example 2.7
+clc;
+clear;
+close;
+
+//Given data :
+format('v',5);
+d=6;//in mm
+d=d/1000;//in m
+sigma=0.0755;//N/m
+//At equillibrium : p*%pi*r^2=sigma*2*%pi*r
+r=d/2;//in m
+p=2*sigma/r;//N/m^2
+disp(p,"Intensity of pressure in N/m^2 or Pascals : ");
-- 
cgit