1 files changed, 16 insertions, 0 deletions
diff --git a/1962/CH9/EX9.5/example9_5.sce b/1962/CH9/EX9.5/example9_5.sce
new file mode 100755
index 000000000..ce9ff27b3
--- /dev/null
+++ b/1962/CH9/EX9.5/example9_5.sce
@@ -0,0 +1,16 @@
+
+//example 9.5
+//page 319
+clc; funcprot(0);
+//initialisation of variable
+epsilon=0.025;//roughness
+L=500;
+pi=3.14;
+g=9.81;
+D=30/100;
+Q=0.1;
+K=pi/4*sqroot(2*g)*(2*log10(D*100/epsilon)+1.14)*D^2.5;
+S=(Q/K)^2;
+hf=S*L;
+disp(hf,"head loss(m)=");
+clear