initial commit / add all books

19 files changed, 343 insertions, 0 deletions

diff --git a/2132/CH6/EX6.1/Example6_1.sce b/2132/CH6/EX6.1/Example6_1.sce
new file mode 100755
index 000000000..5fb3f21eb
--- /dev/null
+++ b/2132/CH6/EX6.1/Example6_1.sce
@@ -0,0 +1,21 @@
+//Example 6.1

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+Do=25;//mm

+Dc=20;//mm

+H=85;//mm

+x=335;//mm

+y=350;//mm

+a=%pi/4*Do^2;//m^2

+ac=%pi/4*Dc^2;//m^2

+Cc=ac/a;

+disp(Cc,"Coefficient of contraction : ");

+Cv=sqrt(x^2/4/H/y);

+disp(Cv,"Coefficient of velocity : ");

+Cd=Cc*Cv;

+disp(Cd,"Coefficient of discharge : ");

+Cr=(1/Cv^2-1);

+disp(Cr,"Coefficient of resistance : ");

diff --git a/2132/CH6/EX6.10/Example6_10.sce b/2132/CH6/EX6.10/Example6_10.sce
new file mode 100755
index 000000000..012daa33f
--- /dev/null
+++ b/2132/CH6/EX6.10/Example6_10.sce
@@ -0,0 +1,20 @@
+//Example 6.10

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+g=9.81;//constant

+H1=4-1;//meter

+H2=4;//meter

+Cv1=0.9;//Coefficient of velocity

+Cv2=0.9;//Coefficient of velocity

+//Cv1=Cv2 & x1=x2 at meeting point

+//x1/sqrt(4*H1*y1)=x2/sqrt(4*H2*y2)

+y1BYy2=H2/H1;

+//y1=1+y2;

+y2=1/(y1BYy2-1);//meter

+y1=y1BYy2*y2;//meter

+x1=Cv1*sqrt(4*H1*y1);//meter

+disp(y1,x1,"Meeting point horizontal & vertical co-ordinates are(x1 & y1 in meter) : ");

+//Answer in the book are not accurate.

diff --git a/2132/CH6/EX6.11/Example6_11.sce b/2132/CH6/EX6.11/Example6_11.sce
new file mode 100755
index 000000000..d0ecad32f
--- /dev/null
+++ b/2132/CH6/EX6.11/Example6_11.sce
@@ -0,0 +1,13 @@
+//Example 6.11

+clc;

+clear;

+close;

+format('v',8);

+//Given data :

+g=9.81;//constant

+Cd=0.6;//Coefficient of discharge

+B=1.3;//meter

+H1=6-(1.8+1.5);//meter

+H2=6-1.5;//meter

+Q=2/3*Cd*B*sqrt(2*g)*(H2^(3/2)-H1^(3/2));//m^3/sec

+disp(Q,"Discharge through the orifice in m^3/sec : ");

diff --git a/2132/CH6/EX6.12/Example6_12.sce b/2132/CH6/EX6.12/Example6_12.sce
new file mode 100755
index 000000000..efe23ff5a
--- /dev/null
+++ b/2132/CH6/EX6.12/Example6_12.sce
@@ -0,0 +1,13 @@
+//Example 6.12

+clc;

+clear;

+close;

+format('v',7);

+//Given data :

+g=9.81;//constant

+Cd=0.62;//Coefficient of discharge

+B=2;//meter

+H1=3;//meter

+H2=3+1.5;//meter

+Q=2/3*Cd*B*sqrt(2*g)*(H2^(3/2)-H1^(3/2));//m^3/sec or cumec

+disp(Q,"Discharge through the orifice in cumec : ");

diff --git a/2132/CH6/EX6.13/Example6_13.sce b/2132/CH6/EX6.13/Example6_13.sce
new file mode 100755
index 000000000..093bb75da
--- /dev/null
+++ b/2132/CH6/EX6.13/Example6_13.sce
@@ -0,0 +1,20 @@
+//Example 6.13

+clc;

+clear;

+close;

+format('v',7);

+//Given data :

+g=9.81;//constant

+Cd=0.6;//Coefficient of discharge

+B=1.6;//meter

+H1=1500/1000;//meter

+H2=(1500+1250)/1000;//meter

+Q=2/3*Cd*B*sqrt(2*g)*(H2^(3/2)-H1^(3/2));//m^3/sec or cumec

+disp(Q,"Discharge through the opening in cumec : ");

+//For small opening

+H=1.5+1.25/2;//meter

+D=1.25;//meter

+Qdash=Cd*(B*D)*sqrt(2*g*H);//cumec

+Error=(Qdash-Q)/Q*100;//%

+disp(Error,"% of error : ");

+//Answer is wrong in the book.

diff --git a/2132/CH6/EX6.14/Example6_14.sce b/2132/CH6/EX6.14/Example6_14.sce
new file mode 100755
index 000000000..e981abb36
--- /dev/null
+++ b/2132/CH6/EX6.14/Example6_14.sce
@@ -0,0 +1,17 @@
+//Example 6.14

+clc;

+clear;

+close;

+format('v',6);

+//Given data :

+g=9.81;//constant

+Cd=0.6;//Coefficient of discharge

+B=1600/1000;//meter

+D=1250/1000;//meter

+ao=1.6*1.25;//m^2

+H1=2+1.25/2;//meter

+H2=0.8+1.25/2;//meter

+H=H1-H2;//meter

+Q=Cd*ao*sqrt(2*g*H);//m^3/sec or Cumec

+disp(Q,"Discharge in Cumec : ");

+//Answer is wrong in the book.

diff --git a/2132/CH6/EX6.15/Example6_15.sce b/2132/CH6/EX6.15/Example6_15.sce
new file mode 100755
index 000000000..9ec67f6c6
--- /dev/null
+++ b/2132/CH6/EX6.15/Example6_15.sce
@@ -0,0 +1,16 @@
+//Example 6.15

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+g=9.81;//constant

+Cd=0.6;//Coefficient of discharge

+B=1600/1000;//meter

+D=1250/1000;//meter

+ao=1.6*1.25;//m^2

+H1=2+1.25;//meter

+H2=2;//meter

+H=H1-0.8;//meter

+Q=2/3*Cd*B*sqrt(2*g)*(H^(3/2)-H2^(3/2))+Cd*B*(H1-H)*sqrt(2*g*H);//m^3/sec or Cumec

+disp(Q,"Discharge through the orifice in Cumec : ");

diff --git a/2132/CH6/EX6.16/Example6_16.sce b/2132/CH6/EX6.16/Example6_16.sce
new file mode 100755
index 000000000..af97916b5
--- /dev/null
+++ b/2132/CH6/EX6.16/Example6_16.sce
@@ -0,0 +1,20 @@
+//Example 6.16

+clc;

+clear;

+close;

+format('v',6);

+//Given data :

+g=9.81;//constant

+d=4;//meter

+d0=0.5;//meter

+H1=5;//meter

+H2=2;//meter

+Cd=0.6;//Coefficient of discharge

+ao=%pi/4*d0^2;//m^2

+A=%pi/4*d^2;//m^2

+t=2*A/Cd/ao/sqrt(2*g)*(sqrt(H1)-sqrt(H2))

+disp(t,"Time taken to fall from 5m to 2m(in seconds) : ");

+//For emptying H2=0;

+H2=0;//meter

+t=2*A/Cd/ao/sqrt(2*g)*(sqrt(H1)-sqrt(H2))

+disp(t,"Time taken for completely emptying(in seconds) : ");

diff --git a/2132/CH6/EX6.17/Example6_17.sce b/2132/CH6/EX6.17/Example6_17.sce
new file mode 100755
index 000000000..62168aa98
--- /dev/null
+++ b/2132/CH6/EX6.17/Example6_17.sce
@@ -0,0 +1,15 @@
+//Example 6.17

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+g=9.81;//constant

+d=1.2;//meter

+do=50/1000;//meter

+H=3;//meter

+Cd=0.6;//Coefficient of discharge

+ao=%pi/4*do^2;//m^2

+A=%pi/4*d^2;//m^2

+t=2*A*sqrt(H)/Cd/ao/sqrt(2*g);//sec

+disp("Time taken for emptying the tank is "+string(floor(t/60))+" minute "+string((t/60-floor(t/60))*60)+" seconds.");

diff --git a/2132/CH6/EX6.18/Example6_18.sce b/2132/CH6/EX6.18/Example6_18.sce
new file mode 100755
index 000000000..71c9b9383
--- /dev/null
+++ b/2132/CH6/EX6.18/Example6_18.sce
@@ -0,0 +1,14 @@
+//Example 6.18

+clc;

+clear;

+close;

+format('v',4);

+//Given data :

+g=9.81;//constant

+A=3.2;//m^2

+a=10*10^-4;//m^2

+H1=5;//meter

+H2=2.5;//meter

+Cd=0.6;//Coefficient of discharge

+t=2*A*(sqrt(H1)-sqrt(H2))/Cd/a/sqrt(2*g);//sec

+disp("Time taken is "+string(floor(t/60))+" minute "+string((t/60-floor(t/60))*60)+" seconds.");

diff --git a/2132/CH6/EX6.19/Example6_19.sce b/2132/CH6/EX6.19/Example6_19.sce
new file mode 100755
index 000000000..a5998f2f7
--- /dev/null
+++ b/2132/CH6/EX6.19/Example6_19.sce
@@ -0,0 +1,13 @@
+//Example 6.19

+clc;

+clear;

+close;

+format('v',4);

+//Given data :

+g=9.81;//constant

+A=3.2;//m^2

+a=10*10^-4;//m^2

+H=5;//meter

+Cd=0.6;//Coefficient of discharge

+t=2*A*sqrt(H)/Cd/a/sqrt(2*g);//sec

+disp("Time taken is "+string(floor(t/3600))+" hour "+string(floor((t/3600-floor(t/3600))*60))+" minute "+string(((t/3600-floor(t/3600))*60-floor((t/3600-floor(t/3600))*60))*60)+" seconds.");

diff --git a/2132/CH6/EX6.2/Example6_2.sce b/2132/CH6/EX6.2/Example6_2.sce
new file mode 100755
index 000000000..0c9500dcd
--- /dev/null
+++ b/2132/CH6/EX6.2/Example6_2.sce
@@ -0,0 +1,26 @@
+//Example 6.2

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+Do=0.125;//m

+H=10.5;//mm

+Q=6500;//litres/minute

+Q=Q/60/1000;//cumec

+x=6;//m

+y=1;//m

+g=9.81;//gravity constant

+a=%pi/4*Do^2;//m^2

+Qth=a*sqrt(2*g*H);//cumec

+Cd=Q/Qth;//

+disp(Cd,"Coefficient of discharge : ");

+Cv=sqrt(x^2/4/H/y);

+format('v',6);

+disp(Cv,"Coefficient of velocity : ");

+Cc=Cd/Cv;

+format('v',5);

+disp(Cc,"Coefficient of contraction : ");

+Cr=(1/Cv^2-1);

+format('v',6);

+disp(Cr,"Coefficient of resistance : ");

diff --git a/2132/CH6/EX6.3/Example6_3.sce b/2132/CH6/EX6.3/Example6_3.sce
new file mode 100755
index 000000000..6eded94b9
--- /dev/null
+++ b/2132/CH6/EX6.3/Example6_3.sce
@@ -0,0 +1,11 @@
+//Example 6.3

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+g=9.81;//constant

+h=102;//mm

+H=105;//mm

+Cv=sqrt(2*g*h)/sqrt(2*g*H);

+disp(Cv,"Coefficient of velocity : ");

diff --git a/2132/CH6/EX6.4/Example6_4.sce b/2132/CH6/EX6.4/Example6_4.sce
new file mode 100755
index 000000000..27afe5070
--- /dev/null
+++ b/2132/CH6/EX6.4/Example6_4.sce
@@ -0,0 +1,14 @@
+//Example 6.4

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+Q=180/62;//litres/sec

+Q=Q/1000;//cumec

+Dc=25/1000;//m

+H=1.9;//m

+ac=%pi/4*Dc^2;//m^2

+g=9.81;//constant

+Cv=Q/sqrt(2*g*H)/ac;

+disp(Cv,"Coefficient of velocity : ");

diff --git a/2132/CH6/EX6.5/Example6_5.sce b/2132/CH6/EX6.5/Example6_5.sce
new file mode 100755
index 000000000..e21313667
--- /dev/null
+++ b/2132/CH6/EX6.5/Example6_5.sce
@@ -0,0 +1,23 @@
+//Example 6.5

+clc;

+clear;

+close;

+format('v',6);

+//Given data :

+g=9.81;//constant

+d=30/1000;//meter

+wl=2;//kgm

+w1=148.6/60;//kg/sec

+y=1.65;//meter

+H=1.3;//meter

+Cv=wl/w1/y*sqrt(g)/sqrt(2*H);

+disp(Cv,"Coefficient of velocity : ");

+Q=w1/1000;//Cumec

+a=%pi/4*d^2;//meter^2

+Qth=a*sqrt(2*g*H);//Cumec

+Cd=Q/Qth;//coeff. of discharge

+disp(Cd,"Coefficient of discharge : ");

+Cc=Cd/Cv;//coeff. of contraction

+format('v',5);

+disp(Cc,"Coefficient of contraction : ");

+//Answer in the book are not accurate.

diff --git a/2132/CH6/EX6.6/Example6_6.sce b/2132/CH6/EX6.6/Example6_6.sce
new file mode 100755
index 000000000..afd0d3997
--- /dev/null
+++ b/2132/CH6/EX6.6/Example6_6.sce
@@ -0,0 +1,20 @@
+//Example 6.6

+clc;

+clear;

+close;

+format('v',7);

+//Given data :

+g=9.81;//constant

+a=9*10^-4;//m^2

+H=3;//meter

+x=2.5;//meter

+y=54/100;//meter

+Qactual=250*10^-3/60;//Cumec

+Qth=a*sqrt(2*g*H);//Cumec

+Cd=Qactual/Qth;//coeff. of discharge

+disp(Cd,"Coefficient of discharge : ");

+Cv=sqrt(x^2)/sqrt(4*H*y);//velocity

+disp(Cv,"Coefficient of velocity : ");

+Cc=Cd/Cv;//coeff. of contraction

+disp(Cc,"Coefficient of contraction : ");

+//Answer in the book are not accurate.

diff --git a/2132/CH6/EX6.7/Example6_7.sce b/2132/CH6/EX6.7/Example6_7.sce
new file mode 100755
index 000000000..80beae9a5
--- /dev/null
+++ b/2132/CH6/EX6.7/Example6_7.sce
@@ -0,0 +1,15 @@
+//Example 6.7

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+g=9.81;//constant

+d=20/1000;//meter

+a=%pi/4*d^2;//m^2

+H=1;//meter

+Qactual=0.85*10^-3;//m^3/sec

+v=sqrt(2*g*H);//m/sec

+Qth=a*v;//Cumec

+Cd=Qactual/Qth;//coeff. of discharge

+disp(Cd,"Coefficient of discharge : ");

diff --git a/2132/CH6/EX6.8/Example6_8.sce b/2132/CH6/EX6.8/Example6_8.sce
new file mode 100755
index 000000000..a7136abcc
--- /dev/null
+++ b/2132/CH6/EX6.8/Example6_8.sce
@@ -0,0 +1,27 @@
+//Example 6.8

+clc;

+clear;

+close;

+format('v',6);

+//Given data :

+g=9.81;//constant

+d=1.5;//meter

+h=1;//meter

+Volume=%pi/4*d^2*h;//m^3

+time=25;//sec

+Qactual=Volume/time;//Cumec

+H=10;//meter

+do=10/100;//meter

+x=4.3;//meter

+y=0.5;//meter

+ao=%pi/4*do^2;//m^2

+Qth=ao*sqrt(2*g*H);//cumec

+Cd=Qactual/Qth;//Coeff. ofdischarge

+disp(Cd,"Coefficient of discharge : ");

+format('v',5);

+Cv=sqrt(x^2)/sqrt(4*H*y);//Coefficient of velocity

+disp(Cv,"Coefficient of velocity : ");

+Cc=Cd/Cv;//coeff. of contraction

+disp(Cc,"Coefficient of contraction : ");

+Cr_dash=(1/Cv^2-1);//coeff. of resistance

+disp(Cr_dash,"Coefficient. of Resistance");

diff --git a/2132/CH6/EX6.9/Example6_9.sce b/2132/CH6/EX6.9/Example6_9.sce
new file mode 100755
index 000000000..6c74d36ca
--- /dev/null
+++ b/2132/CH6/EX6.9/Example6_9.sce
@@ -0,0 +1,25 @@
+//Example 6.9

+clc;

+clear;

+close;

+format('v',5);

+//Given data :

+g=9.81;//constant

+do=2.5/100;//meter

+H=75/100;//meter

+x=30/100;//meter

+y=3.2/100;//meter

+Qactual=1.186*10^-3;//Cumec

+ao=%pi/4*do^2;//m^2

+Qth=ao*sqrt(2*g*H);//cumec

+Cd=Qactual/Qth;//Coeff. ofdischarge

+disp(Cd,"Coefficient of discharge : ");

+Cv=sqrt(x^2)/sqrt(4*H*y);//Coefficient of velocity

+format('v',7);

+disp(Cv,"Coefficient of velocity : ");

+format('v',6);

+Cc=Cd/Cv;//coeff. of contraction

+disp(Cc,"Coefficient of contraction : ");

+Cr_dash=(1/Cv^2-1);//coeff. of resistance

+disp(Cr_dash,"Coefficient. of Resistance");

+//Answers in the book are not accurate.