diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /650/CH8/EX8.10/10.sce | |
download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip |
initial commit / add all books
Diffstat (limited to '650/CH8/EX8.10/10.sce')
-rwxr-xr-x | 650/CH8/EX8.10/10.sce | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/650/CH8/EX8.10/10.sce b/650/CH8/EX8.10/10.sce new file mode 100755 index 000000000..cd610176e --- /dev/null +++ b/650/CH8/EX8.10/10.sce @@ -0,0 +1,32 @@ +clc
+m=12*10^3/3600; // kg/s
+Rho=815; // kg/m^3
+d=0.05; // m
+e=0.02;
+d1=50; // m
+d2=0.038; // m
+g=9.8; // m
+
+v=4*m/Rho/%pi/d^2;
+
+f1=1/(2*log10(d1/e)+2.28)^2;
+
+L_eq=d1+2*d1*d;
+
+H_50mm=4*f1*L_eq*v^2/(d*2*g);
+
+v=4*m/(Rho*%pi*d2^2);
+
+f2=1/(2*log10(38/e)+2.28)^2;
+
+L_eq=d1+2*d1*d2;
+H_38mm=4*f2*L_eq*v^2/(d2*2*g);
+
+Hr=0.2*v^2/(2*g);
+
+H_L=H_50mm+H_38mm+Hr;
+
+del_p_f=Rho*g*H_L;
+disp("The total pressure drop due to friction through the pipe system is ")
+disp(del_p_f);
+disp("N/m^2")
|