summaryrefslogtreecommitdiff
path: root/1187/CH7/EX7.1/1.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1187/CH7/EX7.1/1.sce
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 '1187/CH7/EX7.1/1.sce')
-rwxr-xr-x1187/CH7/EX7.1/1.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/1187/CH7/EX7.1/1.sce b/1187/CH7/EX7.1/1.sce
new file mode 100755
index 000000000..c38eaa830
--- /dev/null
+++ b/1187/CH7/EX7.1/1.sce
@@ -0,0 +1,22 @@
+clc
+
+Q=50*10^-3; // m^3/s
+d=0.15; // m
+l=300; // m
+v=1.14*10^-6; // m^2/s
+g=9.81; // m/s^2
+
+// For galvanised steel
+k=0.00015; // m
+t=0.001; // ratio of k to d ; (k/d)
+f=0.00515;
+
+A1=%pi/4*d^2;
+
+u=Q/A1;
+Re=u*d/v;
+
+h_f=4*f*l*u^2/d/(2*g);
+disp("Head lost to friction =")
+disp(h_f)
+disp("m") \ No newline at end of file