initial commit / add all books

14 files changed, 229 insertions, 0 deletions

diff --git a/2132/CH4/EX4.1/Example4_1.sce b/2132/CH4/EX4.1/Example4_1.sce
new file mode 100755
index 000000000..53ca8df7e
--- /dev/null
+++ b/2132/CH4/EX4.1/Example4_1.sce
@@ -0,0 +1,39 @@
+//Example 4.1

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+p=5;//kg/cm^2

+disp("Gauge units : ");

+disp(p/10^-4,"Pressure Intensity in kg/m^2 : ");

+g=9.81;//gravity constant

+disp(p*g/10^-4,"Pressure Intensity in N/m^2 : ");

+disp(p*g/10^-4,"Pressure Intensity in Pa : ");

+disp(p*g/10^3/10^-4,"Pressure Intensity in kPa : ");

+disp(p*g/10^6/10^-4,"Pressure Intensity in MPa : ");

+disp("In terms of head : ");

+w=1000;//kg/m^3 for water

+h=p*10^4/w;//meter of water

+disp("Pressure is  : "+string(h)+" meter of water.");

+w=13.6*1000;//kg/m^3 for mercury

+h=p*10^4/w;//meter of mercury

+disp("Pressure is  : "+string(h)+" meter of mercury.");

+disp("Absolute units : ");

+Patm=760;//mm of mercury

+Patm=760*13.6/1000;//m of water

+Patm=Patm*1000;//kg/m^2

+Pabs=p+Patm;//kg/m^2

+disp(Pabs,"Absolute pressure in kg/m^2 : ");

+disp(Pabs*10^4,"Absolute pressure in kg/cm^2 : ");

+disp(Pabs*10^4*g,"Absolute pressure in N/m^2 : ");

+disp(Pabs*10^4*g,"Absolute pressure in Pa : ");

+disp(Pabs*10^5/10^3,"Absolute pressure in kPa : ");

+disp(Pabs*10^5/10^6,"Absolute pressure in MPa : ");

+h1=p*10^4/w;//meter of water

+h2=p*10^4/1000;//meter of water

+h=h1+h2;////meter of water

+disp(h,"Absolute pressure head in terms of water in meter : ");

+w=13.6*1000;//kg/m^3 for mercury

+h=p*10^4/w+760/1000;//meter of mercury

+disp(h,"Absolute pressure head in terms of mercury in meter : ");

diff --git a/2132/CH4/EX4.10/Example4_10.sce b/2132/CH4/EX4.10/Example4_10.sce
new file mode 100755
index 000000000..f446480df
--- /dev/null
+++ b/2132/CH4/EX4.10/Example4_10.sce
@@ -0,0 +1,15 @@
+//Example 4.10

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+S1=0.81;//sp. gravity

+S2=1.2;//sp. gravity

+S3=13.6;//sp. gravity

+h3=200/1000;//m

+h2=50/1000;//m

+h1=100/1000;//m

+w=1000;//kg/m^3

+pAB=((h1*(S2-S1)+h2*(S3-S1)-h3*S1))*w;//Kg/m^2

+disp(pAB,"Pressure difference between the two vessel in kg/m^2: ");

diff --git a/2132/CH4/EX4.11/Example4_11.sce b/2132/CH4/EX4.11/Example4_11.sce
new file mode 100755
index 000000000..d23a100ef
--- /dev/null
+++ b/2132/CH4/EX4.11/Example4_11.sce
@@ -0,0 +1,15 @@
+//Example 4.11

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+S1=1.9;//sp. gravity

+S2=1.2;//sp. gravity

+S3=0.79;//sp. gravity

+h2=545/1000;//m

+h1=750/1000;//m

+h3=h1-h2;//m

+w=1000*9.81;//N/m^3

+pAB=(h1*S1-h2*S2-h3*S3)*w;//N/m^2

+disp(pAB,"Pressure difference between the two vessel in N/m^2: ");

diff --git a/2132/CH4/EX4.12/Example4_12.sce b/2132/CH4/EX4.12/Example4_12.sce
new file mode 100755
index 000000000..f30c4c897
--- /dev/null
+++ b/2132/CH4/EX4.12/Example4_12.sce
@@ -0,0 +1,13 @@
+//Example 4.12

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+S1=0.005;//sp. gravity

+S2=0.79;//sp. gravity

+S3=13.6;//sp. gravity

+h=30/1000;//m

+w=1000*9.81;//N/m^3

+pAB=h*(S3-S2)*w;//N/m^2

+disp(pAB,"Pressure difference between the two vessel in N/m^2: ");

diff --git a/2132/CH4/EX4.13/Example4_13.sce b/2132/CH4/EX4.13/Example4_13.sce
new file mode 100755
index 000000000..f08abde70
--- /dev/null
+++ b/2132/CH4/EX4.13/Example4_13.sce
@@ -0,0 +1,15 @@
+//Example 4.13

+clc;

+clear;

+close;

+format('v',4);

+//Given data :

+S1=1.25;//sp. gravity

+S2=1.05;//sp. gravity

+S3=0.79;//sp. gravity

+h=30/1000;//m

+w=1000;//kg/m^3

+//pA=pB

+h=(0.15*w*S2-S1*w*0.15)/(S3*w-w*S2);//m

+h=h*1000;//mm

+disp(h,"Reading of manometer in mm : ");

diff --git a/2132/CH4/EX4.14/Example4_14.sce b/2132/CH4/EX4.14/Example4_14.sce
new file mode 100755
index 000000000..7da622fc3
--- /dev/null
+++ b/2132/CH4/EX4.14/Example4_14.sce
@@ -0,0 +1,13 @@
+//Example 4.14

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+S1=1;//sp. gravity of water

+S2=1;//sp. gravity of water

+S3=0.9;//sp. gravity of oil

+h3=100/1000;//meter

+w=9.81*1000;//N/m^3

+pAB=w*(h3-h3*S3);//N/m^2

+disp(pAB,"Difference of pressure in N/m^2 or Pa : ");

diff --git a/2132/CH4/EX4.2/Example4_2.sce b/2132/CH4/EX4.2/Example4_2.sce
new file mode 100755
index 000000000..56b3bd276
--- /dev/null
+++ b/2132/CH4/EX4.2/Example4_2.sce
@@ -0,0 +1,15 @@
+//Example 4.2

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+w=1000;//kg/m^3

+h=50/1000;//m

+p=w*h;//kg/m^2

+p=p*9.81;//N/m^2 or Pa

+disp(p,"Pressure Intensity in Pa : ");

+alfa=30;//degree

+h=50;//mm

+l=h/sind(alfa);//mm

+disp(l,"Reading in tube in mm : ");

diff --git a/2132/CH4/EX4.3/Example4_3.sce b/2132/CH4/EX4.3/Example4_3.sce
new file mode 100755
index 000000000..190ea9ef4
--- /dev/null
+++ b/2132/CH4/EX4.3/Example4_3.sce
@@ -0,0 +1,19 @@
+//Example 4.3

+clc;

+clear;

+close;

+format('v',7);

+//Given data :

+S1=13.6;//sp. gravity of mercury

+S2=1;//sp. gravity of water

+H1=5;//m

+H2=S1*H1/S2;//m

+disp("(i) Pressure is "+string(H2)+" meter of water.");

+S2=0.79;//sp. gravity of kerpsene

+H1=5;//m

+H2=S1*H1/S2;//m

+disp("(ii) Pressure is "+string(H2)+" meter of kerosene.");

+S2=1.7;//sp. gravity of fluid

+H1=5;//m

+H2=S1*H1/S2;//m

+disp("(iii) Pressure is "+string(H2)+" meter of fluid.");

diff --git a/2132/CH4/EX4.4/Example4_4.sce b/2132/CH4/EX4.4/Example4_4.sce
new file mode 100755
index 000000000..53bcd6391
--- /dev/null
+++ b/2132/CH4/EX4.4/Example4_4.sce
@@ -0,0 +1,15 @@
+//Example 4.4

+clc;

+clear;

+close;

+format('v',7);

+//Given data :

+S=0.9;//sp. gravity of liquid

+Sm=13.6;//sp. gravity of mercury

+S1=Sm/S;//sp. gravity

+w=S*9.81;//kN/m^3

+h2=500/1000;//m

+h1=300/1000;//m

+a_BY_A=1/80;//ratio of area

+pa=w*(h2*[(S1-1)*a_BY_A+S1]-h1);//kPa

+disp(pa,"Pressure in the pipe in kPa: ");

diff --git a/2132/CH4/EX4.5/Example4_5.sce b/2132/CH4/EX4.5/Example4_5.sce
new file mode 100755
index 000000000..4a089d38f
--- /dev/null
+++ b/2132/CH4/EX4.5/Example4_5.sce
@@ -0,0 +1,14 @@
+//Example 4.5

+clc;

+clear;

+close;

+format('v',8);

+//Given data :

+S1=1.2;//sp. gravity

+S2=13.6;//sp. gravity

+w=1000;//kg/m^3

+h2=50/1000;//m

+h1=200/1000;//m

+pa=w*(S2*h1-S1*h2);//kg/m^2

+disp(pa,"Pressure in the pipe in kg/m^2: ");

+disp(pa*9.81,"Pressure in the pipe in Pa: ");

diff --git a/2132/CH4/EX4.6/Example4_6.sce b/2132/CH4/EX4.6/Example4_6.sce
new file mode 100755
index 000000000..9119d134b
--- /dev/null
+++ b/2132/CH4/EX4.6/Example4_6.sce
@@ -0,0 +1,13 @@
+//Example 4.6

+clc;

+clear;

+close;

+format('v',8);

+//Given data :

+S=1;//sp. gravity

+w=1000;//kg/m^3

+h2=50/1000;//m

+h1=200/1000;//m

+pa=w*S*(h1-h2);//kg/m^2

+disp(pa,"Pressure in the pipe in kg/m^2: ");

+disp(pa*9.81,"Pressure in the pipe in Pa: ");

diff --git a/2132/CH4/EX4.7/Example4_7.sce b/2132/CH4/EX4.7/Example4_7.sce
new file mode 100755
index 000000000..39654a300
--- /dev/null
+++ b/2132/CH4/EX4.7/Example4_7.sce
@@ -0,0 +1,15 @@
+//Example 4.7

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+S1=0.005;//sp. gravity

+S2=1;//sp. gravity

+Patm=1.014*10^5;//Pa

+h=50/1000;//m

+w=1000;//kg/m^3

+pa=-w*S2*h;//kg/m^2

+Pabs=pa*9.81+Patm;//

+disp(abs(pa*9.81),"Pressure intensity of gas in Pa(Vaccum): ");

+disp(Pabs,"Absolute pressure in the pipe in Pa: ");

diff --git a/2132/CH4/EX4.8/Example4_8.sce b/2132/CH4/EX4.8/Example4_8.sce
new file mode 100755
index 000000000..e8b228561
--- /dev/null
+++ b/2132/CH4/EX4.8/Example4_8.sce
@@ -0,0 +1,14 @@
+//Example 4.8

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+S1=0.9;//sp. gravity

+S2=13.6;//sp. gravity

+h1=12.5/100;//m

+P_AB=h1*(S2-S1);//meter of water

+disp("Difference in pressure head at the points A & B is "+string(P_AB)+" meter of water");

+w=1000;//kg/m^3

+P_diff=P_AB*w*9.81;//Pa or Nm^2

+disp(P_diff,"In terms A pressure entirely, the difference of pressure in N/m^2 : ");

diff --git a/2132/CH4/EX4.9/Example4_9.sce b/2132/CH4/EX4.9/Example4_9.sce
new file mode 100755
index 000000000..d625fef31
--- /dev/null
+++ b/2132/CH4/EX4.9/Example4_9.sce
@@ -0,0 +1,14 @@
+//Example 4.9

+clc;

+clear;

+close;

+format('v',9);

+//Given data :

+S1=1;//sp. gravity

+S2=13.6;//sp. gravity

+h1=120/1000;//m

+P_diff=h1*(S2-S1);//meter of water

+disp("Difference in pressure head is "+string(P_diff)+" meter of water");

+w=1000;//kg/m^3

+P_diff=P_diff*w*9.81;//Pa or Nm^2

+disp(P_diff,"In terms of pressure intensity, the difference of pressure in N/m^2 : ");