diff options
Diffstat (limited to '2510/CH16/EX16.18/Ex16_18.sce')
| -rwxr-xr-x | 2510/CH16/EX16.18/Ex16_18.sce | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/2510/CH16/EX16.18/Ex16_18.sce b/2510/CH16/EX16.18/Ex16_18.sce new file mode 100755 index 000000000..8dc81d9ca --- /dev/null +++ b/2510/CH16/EX16.18/Ex16_18.sce @@ -0,0 +1,33 @@ +//Variable declaration: +//From example 16.10: +m1 = 2.778 //Mass flowrate of water (kg/s) +cp1 = 4176.0 //Heat capacity of water (J/kg. C) +cp2 = 4820.0 //Heat capacity of oil (J/kg. C) +m2 = 2.48 //Mass flowrate of oil (kg/s) +t2 = 84.0 //Temperature of water leaving the tube ( C) +t1 = 16.0 //Temperature of water entering the tube ( C) +T2 = 94.0 //Temperature of oil leaving the shell ( C) +T1 = 160.0 //Temperature of oil entering the shell ( C) +U = 350.0 //Over all heat transfer coefficient (W/m^2. C) +A = 30.33 //Heat transfer area required for heat exchanger (m^2) + +//Calculation: +C1 = m1*cp1 //Capacitance rate of water (W/ C) +C2 = m2*cp2 //Capacitance rate of oil (W/ C) +Q = C1*(t2-t1) //Heat load of water (W) +Qmax = C1*(T1-t1) //Maximum heat load of water (W) +E = Q/Qmax //Effectiveness +if (C1<C2) then + Cmin = C1 //Minimum capacitance rate (W/ C) + Cmax = C2 //Maximum capacitance rate (W/ C) +else + Cmin = C2 //Minimum capacitance rate (W/ C) + Cmax = C1 //Maximum capacitance rate (W/ C) +end +NTU = U*A/Cmin //Number of transfer units +C = Cmin/Cmax //Capacitance rate ratio + +//Result: +printf("The effectiveness is : %.3f .",E) +printf("The number of transfer units is : %.3f",NTU) +printf("The capacitance rate ratio is : %.3f",C) |