1 files changed, 27 insertions, 0 deletions
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");