diff options
Diffstat (limited to '2510/CH18/EX18.4/Ex18_4.sce')
| -rwxr-xr-x | 2510/CH18/EX18.4/Ex18_4.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/2510/CH18/EX18.4/Ex18_4.sce b/2510/CH18/EX18.4/Ex18_4.sce new file mode 100755 index 000000000..c4dcf90f5 --- /dev/null +++ b/2510/CH18/EX18.4/Ex18_4.sce @@ -0,0 +1,19 @@ +//Variable declaration: +U1 = 240 //Overall heat transfer coefficient for first effect (Btu/h.ft^2. F) +U2 = 200 //Overall heat transfer coefficient for second effect (Btu/h.ft^2. F) +U3 = 125 //Overall heat transfer coefficient for third effect (Btu/h.ft^2. F) +A1 = 125 //Heating surface area in first effect (ft^3) +A2 = 150 //Heating surface area in second effect (ft^3) +A3 = 160 //Heating surface area in third effect (ft^3) +T1 = 400 //Condensation stream temperature in the first effect ( F) +T2 = 120 //Vapor leaving temperature in the first effect ( F) + +//Calculation: +R1 = 1/(U1*A1) //Resistance across first effect +R2 = 1/(U2*A2) //Resistance across second effect +R3 = 1/(U3*A3) //Resistance across third effect +R = R1+R2+R3 //Total resistance +DT1 = (R1/R)*(T1-T2) //Temperature drop across the heating surface in the first effect ( F) + +//Result: +printf("The temperature drop across the heating surface in the first effect is : %.0f F .",DT1) |