From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 914/CH10/EX10.2/ex10_2.sce | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

(limited to '914/CH10/EX10.2/ex10_2.sce')

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
-- 
cgit