diff options
Diffstat (limited to '1073/CH5/EX5.5/5_5.sce')
| -rwxr-xr-x | 1073/CH5/EX5.5/5_5.sce | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/1073/CH5/EX5.5/5_5.sce b/1073/CH5/EX5.5/5_5.sce new file mode 100755 index 000000000..ec084f87f --- /dev/null +++ b/1073/CH5/EX5.5/5_5.sce @@ -0,0 +1,26 @@ +
+clc;
+clear;
+//Example 5.5
+Cpc=4187 //Specific heat of water in [J/(kg.K)]
+Cph=2000 //Sp heat of oil in [J/(kg.K)]
+mc_dot=1300/3600 //[kg/s]
+mh_dot=550/3600 //[kg/s]
+w=mc_dot*Cpc //[W/K]
+o=mh_dot*Cph //[W/K]
+//Heat capacity of rate of hot fluid is smaller than water
+U=1075 //[W/sq m.K]
+A=1 //[sq m]
+ntu=(U*A)/(mh_dot*Cph)
+C=mh_dot*Cph/(mc_dot*Cpc)
+E=(1-%e^(-ntu*(1-C)))/(1-C*%e^(-ntu*(1-C))) //Effeciency
+T1=367 //[K]
+t1=288 //[K]
+T2=T1-E*(T1-t1) //Outlet temperature [K]
+T2=291.83 //Approximated in book without precise calculation
+t2=C*(T1-T2)+t1 //[K]
+Q=mh_dot*Cph*(T1-T2) //[W]
+printf("\n\nEffectiveness of exchanger is %f\n",E);
+printf("\nOutlet temperature of oil is %f K\n",T2);
+printf("\nOutlet temperature of water is %f K\n",t2);
+printf("\nRate of heat transfer is %f W",Q);
|