4 files changed, 84 insertions, 0 deletions
diff --git a/2087/CH17/EX17.1/example17_1.sce b/2087/CH17/EX17.1/example17_1.sce
new file mode 100755
index 000000000..c018a80d7
--- /dev/null
+++ b/2087/CH17/EX17.1/example17_1.sce
@@ -0,0 +1,19 @@
+
+
+//example 17.1
+//calculate discharge through the outlet
+clc;funcprot(0);
+//given
+D=100.0;         //F.S.L of distributory
+wc=99.90;      //F.S.L of water course
+L=9;           //length of pipe
+d=20;          //diameter of pipe
+f=0.005;     //coefficient of friction
+g=9.81;      //acceleration due to gravity
+
+H=D-wc;        //working head
+C=(d/((1.5*d/(400*f)+L)*f))^0.5/20;
+A=%pi*d^2/(4*10000);
+q=C*A*(2*g*H)^0.5;
+q=round(q*10000)/10000;
+mprintf("discharge through the outlet=%f cumec.",q);
diff --git a/2087/CH17/EX17.2/example17_2.sce b/2087/CH17/EX17.2/example17_2.sce
new file mode 100755
index 000000000..eedda2d39
--- /dev/null
+++ b/2087/CH17/EX17.2/example17_2.sce
@@ -0,0 +1,19 @@
+
+
+//example 17.2
+//design a submerged pipe
+clc;funcprot(0);
+//given
+q=0.04;         //discharge through outlet
+D=100.0;         //F.S.L of distributing canal
+wc=99.90;      //F.S.L of water course
+dep=1.1;       //full supply depth distributing canal
+C=0.7;         //average value of coefficient of discharge
+g=9.81;      //acceleration due to gravity
+
+H=D-wc;          //available head
+A=q/(C*(2*g*H)^0.5);
+d=(4*A/%pi)^0.5*100;
+d=round(d*10)/10;
+mprintf("diameter of pipe required=%f cm.",d);
+mprintf("\nuse pipe of diameter 25 cm.");
diff --git a/2087/CH17/EX17.3/example17_3.sce b/2087/CH17/EX17.3/example17_3.sce
new file mode 100755
index 000000000..845f7f826
--- /dev/null
+++ b/2087/CH17/EX17.3/example17_3.sce
@@ -0,0 +1,29 @@
+
+//example 17.3
+//design submerged pipe
+clc;funcprot(0);
+//given
+q=0.04;         //discharge through outlet
+D=100.0;         //F.S.L of distributing canal
+wc=99.90;      //F.S.L of water course
+dep=1.1;       //full supply depth distributing canal
+f=0.01;         //coefficient of friction
+g=9.81;      //acceleration due to gravity
+L=9;         //Length of pipe
+
+H=D-wc;        //working head
+//first trial
+//taking d=22.8 cm
+d=22.8;
+C=(d/((1.5*d/(400*f)+L)*f))^0.5/20;
+A=q/(C*(2*g*H)^0.5);
+d=(4*A/%pi)^0.5*100;
+//second trial
+C=(d/((1.5*d/(400*f)+L)*f))^0.5/20;
+A=q/(C*(2*g*H)^0.5);
+d=(4*A/%pi)^0.5*100;
+d=round(d*100)/100;
+mprintf("diameter of pipe required=%f cm.",d);
+mprintf("\nprovide diameter of pipe as 25 cm.");
+
+
diff --git a/2087/CH17/EX17.4/example17_4.sce b/2087/CH17/EX17.4/example17_4.sce
new file mode 100755
index 000000000..aeeb5e505
--- /dev/null
+++ b/2087/CH17/EX17.4/example17_4.sce
@@ -0,0 +1,17 @@
+
+
+//example 17.4
+//design an open flume outlet
+clc;funcprot(0);
+//given
+Q=0.06;           //discharge
+D=0.85;           //full supply depth
+Hw=15;             //available working head
+Bt=7;C=1.6;      //let us choose
+H=(Q*100/(C*Bt))^(2/3);
+mh=0.2*H;        //minimum modular head
+mh=round(mh*1000)/1000;
+mprintf("minimum modular head=%f m. < available working head.\nhemce,design is safe.",mh);
+o=H/D;
+o=round(o*1000)/1000;
+mprintf("\nsetting of outlet=%f. <0.9.\nhence,outlet will work as hyper propotional outlet.",o);