summaryrefslogtreecommitdiff
path: root/914/CH10/EX10.2/ex10_2.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:38:01 +0530
committerprashantsinalkar2017-10-10 12:38:01 +0530
commitf35ea80659b6a49d1bb2ce1d7d002583f3f40947 (patch)
treeeb72842d800ac1233e9d890e020eac5fd41b0b1b /914/CH10/EX10.2/ex10_2.sce
parent7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (diff)
downloadScilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.gz
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.tar.bz2
Scilab-TBC-Uploads-f35ea80659b6a49d1bb2ce1d7d002583f3f40947.zip
updated the code
Diffstat (limited to '914/CH10/EX10.2/ex10_2.sce')
-rwxr-xr-x914/CH10/EX10.2/ex10_2.sce35
1 files changed, 18 insertions, 17 deletions
diff --git a/914/CH10/EX10.2/ex10_2.sce b/914/CH10/EX10.2/ex10_2.sce
index d665d2c7f..8cc03a165 100755
--- a/914/CH10/EX10.2/ex10_2.sce
+++ b/914/CH10/EX10.2/ex10_2.sce
@@ -1,17 +1,18 @@
-clc;
-warning("off");
-printf("\n\n example10.2 - pg407");
-Nreold=1214;
-Uold=0.8810;
-Nre=13700;
-U=Uold*(Nre/Nreold);
-Lbyd=744;
-// using the newton raphson method to calculate the value of f from the equation - 1/(f^(1/2))=4*log(Nre*(f^(1/2)))-0.4
-f=0.007119;
-p=(0.88412-(0.92248*10^-3)*T)*10^3; //[kg/m^3] - density
-tauw=(1/2)*p*(U^2)*f;
-deltap=tauw*(4)*(Lbyd);
-d=0.03254/12; //[ft]
-L=Lbyd*d;
-printf("\n\n Pressure drop is \n -deltap=%e N/m^2=%f kpa=130 psi",deltap,deltap*10^-3);
-printf("\n\n A pressure drop of 130 psi on a tube of length of %f ft is high and shows the impracticality of flows at high reynolds number in smaller tubes",L);
+clc;
+warning("off");
+printf("\n\n example10.2 - pg407");
+Nreold=1214;
+T= 300l; // K
+Uold=0.8810;
+Nre=13700;
+U=Uold*(Nre/Nreold);
+Lbyd=744;
+// using the newton raphson method to calculate the value of f from the equation - 1/(f^(1/2))=4*log(Nre*(f^(1/2)))-0.4
+f=0.007119;
+p=(0.88412-(0.92248*10^-3)*T)*10^3; //[kg/m^3] - density
+tauw=(1/2)*p*(U^2)*f;
+deltap=tauw*(4)*(Lbyd);
+d=0.03254/12; //[ft]
+L=Lbyd*d;
+printf("\n\n Pressure drop is \n -deltap=%e N/m^2=%f kpa=130 psi",deltap,deltap*10^-3);
+printf("\n\n A pressure drop of 130 psi on a tube of length of %f ft is high and shows the impracticality of flows at high reynolds number in smaller tubes",L); \ No newline at end of file