diff options
Diffstat (limited to '2510/CH13')
| -rwxr-xr-x | 2510/CH13/EX13.1/Ex13_1.sce | 16 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.10/Ex13_10.sce | 10 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.11/Ex13_11.sce | 13 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.12/Ex13_12.sce | 10 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.13/Ex13_13.sce | 12 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.14/Ex13_14.sce | 16 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.15/Ex13_15.sce | 17 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.2/Ex13_2.sce | 11 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.3/Ex13_3.sce | 9 | ||||
| -rwxr-xr-x | 2510/CH13/EX13.9/Ex13_9.sce | 9 |
10 files changed, 123 insertions, 0 deletions
diff --git a/2510/CH13/EX13.1/Ex13_1.sce b/2510/CH13/EX13.1/Ex13_1.sce new file mode 100755 index 000000000..879546da7 --- /dev/null +++ b/2510/CH13/EX13.1/Ex13_1.sce @@ -0,0 +1,16 @@ +//Variable declaration: +LR = 7.5/12.0 //Thickness of refractory (ft) +LI = 3.0/12.0 //Thickness of insulation (ft) +LS = 0.25/12.0 //Thickness of steel (ft) +kR = 0.75 //Thermal conductivity of refractory +kI = 0.08 //Thermal conductivity of insulation +kS = 26.0 //Thermal conductivity of steel +TR = 2000.0 //Average surface temperature of the inner face of the refractory (°F) +TS = 220.0 //Average surface temperature of the outer face of the steel (°F) + +//Calculation: +DT = TR-TS //Temperature difference (°F) +Q = DT/(LR/kR+LI/kI+LS/kS) //Heat loss (Btu/h.ft^2)(here representing Qdot/A) + +//Result: +printf("The heat loss is : %.0f Btu/h.ft^2 .",Q) diff --git a/2510/CH13/EX13.10/Ex13_10.sce b/2510/CH13/EX13.10/Ex13_10.sce new file mode 100755 index 000000000..00ec06062 --- /dev/null +++ b/2510/CH13/EX13.10/Ex13_10.sce @@ -0,0 +1,10 @@ +//Variable declaration: +//From example 13.9: +TS = -10.0+273.0 //Fluid’s saturation temperature expressed in Kelvin (K) +QC = 160.0 //Heat absorbed by the evaporator (kJ/kg) + +//Calcuation: +DS = QC/TS //Fluid’s change in entropy(kJ/kg.K) + +//Result: +printf("The fluids change in entropy across the evaporator is : %.2f kJ/kg.K.",DS) diff --git a/2510/CH13/EX13.11/Ex13_11.sce b/2510/CH13/EX13.11/Ex13_11.sce new file mode 100755 index 000000000..63b906462 --- /dev/null +++ b/2510/CH13/EX13.11/Ex13_11.sce @@ -0,0 +1,13 @@ +//Variable declaration: +//From figure 13.2: +h1 = 390.0 //Fluid enthalpy on entering the compressor (kJ/kg) +h2 = 430.0 //Fluid enthalpy on leaving the compressor (kJ/kg) +h3 = 230.0 //Fluid enthalpy on leaving the condenser (kJ/kg) + +//Calculation: +QH = h2 - h3 //Heat rejected from the condenser (kJ/kg) +W_in = h2 - h1 //Change in enthalpy across the compressor (kJ/kg) +QC = QH - W_in //Heat absorbed by the evaporator (kJ/kg) + +//Result: +printf("The heat absorbed by the evaporator of the refrigerator is : %.0f kJ/kg.",QC) diff --git a/2510/CH13/EX13.12/Ex13_12.sce b/2510/CH13/EX13.12/Ex13_12.sce new file mode 100755 index 000000000..412ce1ace --- /dev/null +++ b/2510/CH13/EX13.12/Ex13_12.sce @@ -0,0 +1,10 @@ +//Variable declaration: +//From example 13.11: +W_in = 40.0 //Change in enthalpy across the compressor (kJ/kg) +QC = 160.0 //Heat absorbed by the evaporator (kJ/kg) + +//Calculation: +COP = QC/W_in //Refrigerator’s C.O.P. + +//Result: +printf("the refrigerators C.O.P. is : %.0f .",COP) diff --git a/2510/CH13/EX13.13/Ex13_13.sce b/2510/CH13/EX13.13/Ex13_13.sce new file mode 100755 index 000000000..a99521db8 --- /dev/null +++ b/2510/CH13/EX13.13/Ex13_13.sce @@ -0,0 +1,12 @@ +//Variable declaration: +h1 = 548.0 //Steam enthalpy at the entry and exit to the boiler (kJ/kg) +h2 = 3989.0 //Steam enthalpy at the entry and exit to the turbine (kJ/kg) +h3 = 2491.0 //Steam enthalpy at the entry and exit to the pump (kJ/kg) +QH = 2043.0 //Heat rejected by the condenser (kJ/kg) + +//Calculation: +h4 = h3 - QH //Steam enthalpy at the entry and exit to the condenser (kJ/kg) +Qb = h2 - h1 //Enthalpy change across the boiler (kJ/kg) + +//Result: +printf("The enthalpy change across the boiler is : %.0f kJ/kg.",Qb) diff --git a/2510/CH13/EX13.14/Ex13_14.sce b/2510/CH13/EX13.14/Ex13_14.sce new file mode 100755 index 000000000..9c874a53c --- /dev/null +++ b/2510/CH13/EX13.14/Ex13_14.sce @@ -0,0 +1,16 @@ +//Variable declaration: +//From example 13.4: +h1 = 548.0 //Steam enthalpy at the entry and exit to the boiler (kJ/kg) +h2 = 3989.0 //Steam enthalpy at the entry and exit to the turbine (kJ/kg) +h3 = 2491.0 //Steam enthalpy at the entry and exit to the pump (kJ/kg) +h4 = 448.0 //Steam enthalpy at the entry and exit to the condenser (kJ/kg) +Qb = 3441.0 //Enthalpy change across the boiler (kJ/kg) + +//Calculation: +Wt = h2 - h3 //Work produced by the turbine (kJ/kg) +Wp = h1 - h4 //Work used by the pump (kJ/kg) +W_net = Wt - Wp //Net work by subtracting the pump work from the turbine work (kJ/kg) +n_th = W_net/Qb //Thermal efficiency + +//Result: +printf("The thermal efficiency is : %.1f %%.",n_th*100) diff --git a/2510/CH13/EX13.15/Ex13_15.sce b/2510/CH13/EX13.15/Ex13_15.sce new file mode 100755 index 000000000..173de515e --- /dev/null +++ b/2510/CH13/EX13.15/Ex13_15.sce @@ -0,0 +1,17 @@ +//Variable declaration: +//From table 13.4: +x3 = 0.9575 //Mass fraction vapour at point 3 +h3 = 2491.0 //Steam enthalpy at the entry and exit to the pump (kJ/kg) +s3 = 7.7630 //Entropy at the entry and exit to the pump (kJ/kg.K) +s4 = 1.4410 //Entropy at the entry and exit to the condenser (kJ/kg.K) +//From example13.14: +h4 = 448.0 //Steam enthalpy at the entry and exit to the condenser (kJ/kg) + +//Calculation: +Q_out = h3 - h4 //Heat rejected (kJ/kg) +DS = s3 - s4 //Process change in entropy (kJ/kg) +T3 = Q_out/DS //Temperature at point 3 (K) + +//Result: +printf("The temperature at point 3 is : %.0f K.",T3) +printf("Or, the temperature at point 3 is : %.0f °C.",T3-273) diff --git a/2510/CH13/EX13.2/Ex13_2.sce b/2510/CH13/EX13.2/Ex13_2.sce new file mode 100755 index 000000000..6f44f747d --- /dev/null +++ b/2510/CH13/EX13.2/Ex13_2.sce @@ -0,0 +1,11 @@ +//Variable declaration: +LR = 7.5/12.0 //Thickness of refractory (ft) +kR = 0.75 //Thermal conductivity of refractory +TR = 2000.0 //Average surface temperature of the inner face of the refractory (°F) +Q = 450.0 //Heat loss (Btu/h.ft^2) + +//Calculation: +TI = TR - Q*(LR/kR) //Temperature of the boundary where the refractory meets the insulation (°F) + +//Result: +printf("The temperature of the boundary where the refractory meets the insulation is : %.0f °F .",TI) diff --git a/2510/CH13/EX13.3/Ex13_3.sce b/2510/CH13/EX13.3/Ex13_3.sce new file mode 100755 index 000000000..2a4d3ac96 --- /dev/null +++ b/2510/CH13/EX13.3/Ex13_3.sce @@ -0,0 +1,9 @@ +//Variable declaration: +QbyA = 70000.0 //Total heat loss (Btu/h) +Q = 450.0 //Heat loss (Btu/h.ft^2) + +//Calculation: +A = QbyA/Q //Area available for heat transfer (ft^2) + +//Result: +printf("The area available for heat transfer is : %.1f ft^2 .",A) diff --git a/2510/CH13/EX13.9/Ex13_9.sce b/2510/CH13/EX13.9/Ex13_9.sce new file mode 100755 index 000000000..e055b2e30 --- /dev/null +++ b/2510/CH13/EX13.9/Ex13_9.sce @@ -0,0 +1,9 @@ +//Variable declaration: +h_out = 390.0 //Enthalpy of the fluid that exits from the evaporator (kJ/kg) +h_in = 230.0 //Enthalpy of the fluid that enters the unit (kJ/kg) + +//Calculation: +QC = h_out - h_in //Heat absorbed by the evaporator (kJ/kg) + +//Result: +printf("The heat absorbed by the evaporator is : %.0f kJ/kg.",QC) |