1 files changed, 38 insertions, 0 deletions
diff --git a/2471/CH5/EX5.13/Ex5_13.sce b/2471/CH5/EX5.13/Ex5_13.sce
new file mode 100755
index 000000000..91eecce20
--- /dev/null
+++ b/2471/CH5/EX5.13/Ex5_13.sce
@@ -0,0 +1,38 @@
+clear ;
+clc;
+// Example 5.13
+printf('Example 5.13\n\n');
+printf('Page No. 131\n\n');
+
+// given
+T = 300;// in degree celcius
+v = 2;// velocity in m/s
+d = 40*10^-3;// diameter in m
+
+// From the table 5.3 and 5.4 given in the  book
+K_d = [2.80 2.65 2.55 2.75]// in W/m^2-k
+Re = [117*10^3 324*10^3 159*10^3 208*10^3]//Reynolds number
+Pr = [12 4.50 10.0 7.3]//Prandtl Number
+
+// By Dittus-Boelter Equation
+//Nu = 0.0232 * Re^0.8*Pr^0.3 = (hd)/K
+//h =  0.0232 * Re^0.8*Pr^0.3 *(K/d)
+
+h_T = 0.0232 * Re(1)^0.8*Pr(1)^0.3*K_d(1);// //W/m^2-K
+printf('The film heat transfer coefficient using Transcal N is %.0f W/sq.m K \n',h_T)// Deviation in answer due to direct substitution 
+
+
+h_D = 0.0232 * Re(2)^0.8*Pr(2)^0.3*K_d(2);// //W/m^2-K
+printf('The film heat transfer coefficient using Dowtherm A is %.0f W/sq.m K \n\n',h_D)// Deviation in answer due to direct substitution 
+
+
+h_M = 0.0232 * Re(3)^0.8*Pr(3)^0.3*K_d(3);// //W/m^2-K
+printf('The film heat transfer coefficient using Marlotherm S is %.0f W/sq.m K \n',h_M)// Deviation in answer due to direct substitution 
+
+
+h_S = 0.0232 * Re(4)^0.8*Pr(4)^0.3*K_d(4);// //W/m^2-K
+printf('The film heat transfer coefficient using Santotherm 60 is %.0f W/sq.m K \n',h_S)// Deviation in answer due to direct substitution 
+
+
+
+