summaryrefslogtreecommitdiff
path: root/2132/CH6
diff options
context:
space:
mode:
Diffstat (limited to '2132/CH6')
-rwxr-xr-x2132/CH6/EX6.1/Example6_1.sce21
-rwxr-xr-x2132/CH6/EX6.10/Example6_10.sce20
-rwxr-xr-x2132/CH6/EX6.11/Example6_11.sce13
-rwxr-xr-x2132/CH6/EX6.12/Example6_12.sce13
-rwxr-xr-x2132/CH6/EX6.13/Example6_13.sce20
-rwxr-xr-x2132/CH6/EX6.14/Example6_14.sce17
-rwxr-xr-x2132/CH6/EX6.15/Example6_15.sce16
-rwxr-xr-x2132/CH6/EX6.16/Example6_16.sce20
-rwxr-xr-x2132/CH6/EX6.17/Example6_17.sce15
-rwxr-xr-x2132/CH6/EX6.18/Example6_18.sce14
-rwxr-xr-x2132/CH6/EX6.19/Example6_19.sce13
-rwxr-xr-x2132/CH6/EX6.2/Example6_2.sce26
-rwxr-xr-x2132/CH6/EX6.3/Example6_3.sce11
-rwxr-xr-x2132/CH6/EX6.4/Example6_4.sce14
-rwxr-xr-x2132/CH6/EX6.5/Example6_5.sce23
-rwxr-xr-x2132/CH6/EX6.6/Example6_6.sce20
-rwxr-xr-x2132/CH6/EX6.7/Example6_7.sce15
-rwxr-xr-x2132/CH6/EX6.8/Example6_8.sce27
-rwxr-xr-x2132/CH6/EX6.9/Example6_9.sce25
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.
generated by cgit (git 2.34.1) at 2025-03-12 15:46:25 +0000