1 files changed, 16 insertions, 0 deletions
diff --git a/629/CH13/EX13.6/example13_6.sce b/629/CH13/EX13.6/example13_6.sce
new file mode 100644
index 000000000..aa5acb49b
--- /dev/null
+++ b/629/CH13/EX13.6/example13_6.sce
@@ -0,0 +1,16 @@
+clear
+clc
+//Example 13.6 FLOW RATE USING A VENTURI METER
+del_p=35000; //pressure difference [Pa]
+Gamma=9810; //specific weight[N/m^3]
+del_h=del_p/Gamma //change in piezometric head [m]
+d=0.2; //[m]
+v=1.31*10^-6; //[m^2/s]
+g=9.81; //[m/s^2]
+ReK=(d/v)*sqrt(2*g*del_h) //(ReK=Re/K)
+//Interpolating from fig.13.14
+K=1.02; //flow coefficient
+A=%pi*d^2/4 //area [m^2]
+//Discharge
+Q=1.02*A*sqrt(2*g*del_h) //[m^3/s]
+printf("\nThe discharge of water at 10°C is %.3f m^3/s.\n",Q)
+\ No newline at end of file