diff options
Diffstat (limited to '1457/CH13/EX13.2/13_2.sce')
-rwxr-xr-x | 1457/CH13/EX13.2/13_2.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1457/CH13/EX13.2/13_2.sce b/1457/CH13/EX13.2/13_2.sce new file mode 100755 index 000000000..828afb1f9 --- /dev/null +++ b/1457/CH13/EX13.2/13_2.sce @@ -0,0 +1,15 @@ +clc
+//Initialization of variables
+disp("For steady state, dV/dt =0")
+Q=1600/449
+A2=0.1963
+g=32.2
+rp2=2000
+//calculations
+V2=Q/A2
+hp1=32*V2^2 /(2*g) -50
+hp2=hp1*(rp2/1650)^2
+hpf=169 //ft
+Q=4.1 //cfs
+//results
+printf("Steady state flow rate = %.2f cfs",Q)
|