diff options
Diffstat (limited to '2132/CH6/EX6.7/Example6_7.sce')
| -rwxr-xr-x | 2132/CH6/EX6.7/Example6_7.sce | 15 |
1 files changed, 15 insertions, 0 deletions
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 : ");
|