diff options
Diffstat (limited to '1073/CH5/EX5.7/5_7.sce')
| -rwxr-xr-x | 1073/CH5/EX5.7/5_7.sce | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/1073/CH5/EX5.7/5_7.sce b/1073/CH5/EX5.7/5_7.sce new file mode 100755 index 000000000..1520e3856 --- /dev/null +++ b/1073/CH5/EX5.7/5_7.sce @@ -0,0 +1,22 @@ +clc;
+clear;
+//Example 5.7
+mw_dot=10 //[kg/s]
+Cpw=4.187 //[kJ/(kg.K)]
+t2=318 //[K]
+t1=295 //[K]
+Q=mw_dot*Cpw*(t2-t1) //[kJ/s]
+Q=Q*1000 //W
+dT1=98 //[K]
+dT2=75 //[K]
+dTlm=(dT1-dT2)/log(dT1/dT2) //[K]
+hi=850 //[W/sq m.K]
+id=0.027 //Inside dia[m]
+od=0.031 //Outside dia [m]
+hio=hi*id/od //[W/sq m.K]
+ho=6000 //Heat transfer coefficients[W/sq m.K]
+Uo=1/(1/ho+1/hio) //[W/sq m.K]
+Ao=Q/(Uo*dTlm) //[sq m]
+L=4 //Length [m]
+n=Ao/(%pi*od*L) //[No. of tubes]
+printf("\n Number of tubes required = %d\n",round(n));
|