diff options
Diffstat (limited to '3685/CH8/EX8.2/Ex8_2.sce')
| -rw-r--r-- | 3685/CH8/EX8.2/Ex8_2.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/3685/CH8/EX8.2/Ex8_2.sce b/3685/CH8/EX8.2/Ex8_2.sce new file mode 100644 index 000000000..c8d2a4cd9 --- /dev/null +++ b/3685/CH8/EX8.2/Ex8_2.sce @@ -0,0 +1,19 @@ + +clc
+lhw = 1858.5 // Latent heat of water in kJ/kg
+Tew = 220 // Water evaporation temperature in degree Celsius
+
+Tig = 1100 // Initial temperature of the gas in degree Celsius
+Tfg = 550 // Final temperature of the gas in degree Celsius
+T0 = 303 // Atmospheric temperature in degree Celsius
+Tg2 = 823
+Tg1 = 1373
+printf("\n Example 8.2")
+Sw = lhw/(Tew+273) // Entropy generation in water
+Sg = integrate('3.38/T','T',Tg1,Tg2)
+St = Sg+Sw
+printf("\n Total change in entropy is %f kJ/K",St)
+
+printf("\n Increase in unavailable energy is %d kJ",T0*St)
+//The answers vary due to round off error
+
|