summaryrefslogtreecommitdiff
path: root/1962/CH9/EX9.8
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1962/CH9/EX9.8
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1962/CH9/EX9.8')
-rwxr-xr-x1962/CH9/EX9.8/example9_8.sce24
1 files changed, 24 insertions, 0 deletions
diff --git a/1962/CH9/EX9.8/example9_8.sce b/1962/CH9/EX9.8/example9_8.sce
new file mode 100755
index 000000000..765d9ec61
--- /dev/null
+++ b/1962/CH9/EX9.8/example9_8.sce
@@ -0,0 +1,24 @@
+
+//example 9.8
+//page 326
+clc; funcprot(0);
+//initialisation of variable
+Q=0.075;
+L=30;
+D=0.1;
+pi=3.14;
+k=0.5;
+K=10;
+g=9.81;
+nu=1.007*10^-6//kinematic viscosity
+A=pi*D^2/4;
+V=Q/A;
+R=V*D/nu;
+//using moody's chart
+f=0.025;
+hf1=f*L*V^2/2/g/D;//head loss by friction
+hf2=k*V^2/2/g;//head loss due to contraction
+hf3=K*V^2/2/g;//head loss due to expansion
+hf=hf1+hf2+hf3;
+disp(hf,"total head loss (m of H2O)=");
+clear