1 files changed, 25 insertions, 0 deletions
diff --git a/1073/CH3/EX3.27/3_27.sce b/1073/CH3/EX3.27/3_27.sce
new file mode 100755
index 000000000..87111e48a
--- /dev/null
+++ b/1073/CH3/EX3.27/3_27.sce
@@ -0,0 +1,25 @@
+clc;
+clear;
+//Example 3.27
+
+m_dot=0.217 //Water flow rate in [kg/s]
+Do=19   //Outside diameter in [mm]
+rho=1000    //Density
+t=1.6   //Wall thickness in [mm]
+Di=Do-2*t   //i.d of tube in [mm]
+Di=Di/1000  //[m]
+Do=Do/1000  //[m]
+Ai=%pi*(Di/2)^2 //Cross-sectional area in sq m
+u=m_dot/(rho*Ai)  //Water velocity through tube  [m/s]
+u=1.12  //approx in book
+Di=0.0157   //apprx in book
+T1=301  //Inlet temperature of water in [K]
+T2=315  //Outlet temperature of water in [K]
+T=(T1+T2)/2 //[K]
+hi=(1063*(1+0.00293*T)*(u^0.8))/(Di^0.20) //Inside heat transfer coefficient W/(sq m.K)
+hi=5084     //Approximation
+printf("%f",hi);
+hio=hi*(Di/Do)  //Inside heat transfer coeff based on outside diameter  in W/(sq m.K)
+printf("%f",hio);
+printf("Based on outside temperature,Inside heat transfer coefficient is  %d W/(m^2.K) or %f kW/(m^2.K)",round(hio),round(hio)/1000);
+