diff options
Diffstat (limited to '2510/CH19/EX19.19/Ex19_19.sce')
| -rwxr-xr-x | 2510/CH19/EX19.19/Ex19_19.sce | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/2510/CH19/EX19.19/Ex19_19.sce b/2510/CH19/EX19.19/Ex19_19.sce new file mode 100755 index 000000000..ccfca3b4a --- /dev/null +++ b/2510/CH19/EX19.19/Ex19_19.sce @@ -0,0 +1,40 @@ + +//Variable declaration: +h1 = 1700 //Steam heat-transfer coefficient (Btu/h.ft^2. F) +h2 = 2 //Air heat-transfer coefficient (Btu/h.ft^2. F) +A = 1 //Area of base (ft^2) (assumption) +k1 = 26 //Thermal conductivity of steel (Btu/h.ft. F) +k2 = 218 //Thermal conductivity of copper (Btu/h.ft. F) +t = 0.375 //Thickness of steel sheet (in) +h3 = 2500 //Increased steam heat-transfer coefficient (Btu/h.ft^2. F) +h4 = 12 //Increased air heat-transfer coefficient (Btu/h.ft^2. F) + +//Calculation: +R1 = 1/(h1*A) //Steam resistance (h. F/Btu) +R2 = 1/(h2*A) //Air resistance (h. F/Btu) +R3 = (t/12)/(k1*A) //Steel resistance (h. F/Btu) +Rt1 = R1+R2+R3 //Total resistance (with steel) (h. F/Btu) +R4 = (t/12)/(k2*A) //Copper resistance (h. F/Btu) (part 1) +Rt2 = R1+R2+R4 //Total resistance (with copper) (h. F/Btu) +R5 = 1/(h1*A) //New steam resistance (h. F/Btu) +Rt3 = R5+R2+R3 //Total resistance after increasing the steam coefficient (h. F/Btu) +R6 = 1/(h4*A) //Air resistance (h. F/Btu) +Rt4 = R1+R6+R3 //Total resistance after increasing the air coefficient (h. F/Btu) + +//Result: +if (Rt1==Rt2) then + printf("1.The rate of heat transfer is essentially unaffected.") +else + printf("1. The rate of heat transfer is essentially affected.") +end + +if (Rt1==Rt3) then + printf("2. The rate is again unaffected.") +else + printf("2. The rate is again affected.") +end +if (Rt1==Rt4) then + printf("3. The rate is unaffected for this case.") +else + printf("3. The rate is affected for this case.") +end |