1 files changed, 22 insertions, 0 deletions
diff --git a/858/CH4/EX4.13/example_13.sce b/858/CH4/EX4.13/example_13.sce
new file mode 100755
index 000000000..6d0973283
--- /dev/null
+++ b/858/CH4/EX4.13/example_13.sce
@@ -0,0 +1,22 @@
+clc
+clear 
+printf("example 4.13 page number 146\n\n")
+
+//to find the tube length
+density=1000    //in kg/m3
+viscosity=1*10^-3   //in Pa s
+P=100*1000    //in Pa
+
+vdP=P/density;
+
+Q=2.5*10^-3/(24*3600)
+A=3.14*(0.0005)^2/4;
+u=Q/A;
+printf("u = %f m/s",u)
+
+Re=density*u*0.0005/viscosity;
+printf("\n\nRe = %f",Re)
+
+//F=18.86*L
+L=(-u^2+vdP)/18.86;
+printf("\n\nL = %f m",L)