summaryrefslogtreecommitdiff
path: root/629/CH10/EX10.3/example10_3.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /629/CH10/EX10.3/example10_3.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '629/CH10/EX10.3/example10_3.sce')
-rw-r--r--629/CH10/EX10.3/example10_3.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/629/CH10/EX10.3/example10_3.sce b/629/CH10/EX10.3/example10_3.sce
new file mode 100644
index 000000000..ca97b526f
--- /dev/null
+++ b/629/CH10/EX10.3/example10_3.sce
@@ -0,0 +1,20 @@
+clear
+clc
+//Example 10.3 HEAD LOSS IN A PIPE (CASE 1)
+g=9.81; //[m/s^2]
+L=1000; //[m]
+D=0.20; //diameter[m]
+A=%pi*D^2/4 //area[m^2]
+Q=0.05 ;//[m^3/s]
+v=10^-6; //[m^2/s]
+V=Q/A //[m/s]
+//Reynolds number
+Re=V*D/v
+ks=0.12*10^-3; //[m]
+//Relative roughness
+Rr=ks/D
+//From Moody diagram for Re and Rr,
+f=0.019;
+//Darcy-Weisbach equation
+hf=f*(L/D)*(V^2/(2*g)) //[m]
+printf("\nThe head loss per kilometer length of the pipe = %.1f m.\n",hf) \ No newline at end of file