1 files changed, 20 insertions, 0 deletions
diff --git a/858/CH4/EX4.17/example_17.sce b/858/CH4/EX4.17/example_17.sce
new file mode 100755
index 000000000..2656cc805
--- /dev/null
+++ b/858/CH4/EX4.17/example_17.sce
@@ -0,0 +1,20 @@
+clc
+clear 
+printf("example 4.17 page number 154\n\n")
+
+//to find the pressure loss
+density=998   //in kg/m3
+viscosity=0.0008  //in Pa-s
+d=0.03   //in m
+u=1.2   //in m/s
+
+Re=density*d*u/viscosity;
+
+f=0.0088;
+D=1   //in m
+N=10
+L=3.14*D*N;
+delta_P=(2*f*u^2*L)/d;   //in Pa
+delta_P_coil=delta_P*(1+(3.54*(d/D)));
+
+printf("frictional pressure drop = %f kPa",delta_P_coil)