1 files changed, 27 insertions, 0 deletions
diff --git a/1962/CH9/EX9.1/example9_1.sce b/1962/CH9/EX9.1/example9_1.sce
new file mode 100755
index 000000000..e6824b550
--- /dev/null
+++ b/1962/CH9/EX9.1/example9_1.sce
@@ -0,0 +1,27 @@
+
+//example 9.1
+//page 308
+clc; funcprot(0);
+//initialisation of variable
+S=1.26;
+mu=0.862//N.s/m^2
+rhow=998;//density
+rhog=1.26*998;//density of glycerine
+Q=0.1;
+g=9.81;
+L=100;
+D=0.2;
+pi=3.14;
+f=0.0688;//coeff of friction
+A=pi*0.2^2/4;
+V=Q/A;
+R=V*D*rhog/mu;
+hf=f*L/D*V^2/2/g;
+disp(hf,"head loss if glucerine is flowing(m of glycerine)");
+//part2
+mu=1.005*10^-3;
+R=V*D*rhow/mu;
+f=0.021;//coeff. of friction
+hf=f*L/D*V^2/2/g;
+disp(hf,"head loss if water is flowing(m of water)");
+clear