2 files changed, 33 insertions, 0 deletions
diff --git a/3685/CH8/EX8.7/Ex8_7.sce b/3685/CH8/EX8.7/Ex8_7.sce
new file mode 100644
index 000000000..b4fef43a8
--- /dev/null
+++ b/3685/CH8/EX8.7/Ex8_7.sce
@@ -0,0 +1,27 @@
+clc
+P1 = 500 // Initial pressure of steam in kPa
+P2 = 100// Final pressure of steam in kPa
+T1_ = 520 //Initial temperature of steam in degree Celsius
+T2_ = 300 //Final temperature of steam in degree Celsius
+cp = 1.005 // Specific heat capacity of steam in kJ/kgK
+t0 = 20 // Atmospheric temperature in degree Celsius 
+R = 0.287 // Gas constant
+Q = -10 // Heat loss to surrounding in kJ/kg
+printf("\n Example 8.7")
+T1 = T1_+273 //Initial temperature of steam in degree Celsius
+T2 = T2_+273 //Final temperature of steam in degree Celsius
+S21 = (R*log(P2/P1))-(cp*log(T2/T1))
+T0 = t0+273
+CA = cp*(T1-T2)-T0*S21 // Change in availability
+Wmax = CA // Maximum possible work
+W = cp*(T1-T2)+Q // net work
+I = Wmax-W // Irreversibility
+// Altenatively
+Ssystem = -Q/T0
+Ssurr = -S21
+I1 = T0*(Ssystem+Ssurr)
+printf("\n The decrease in availability is %f kJ/kg",CA)
+printf("\n The maximum work is %f kJ/kg",Wmax)
+printf("\n The irreversibility is %f kJ/kg",I)
+printf("\n Alternatively, The irreversibility is %f kJ/kg",I1)
+
diff --git a/3685/CH8/EX8.7/Ex8_7.txt b/3685/CH8/EX8.7/Ex8_7.txt
new file mode 100644
index 000000000..b4eb5a1d5
--- /dev/null
+++ b/3685/CH8/EX8.7/Ex8_7.txt
@@ -0,0 +1,6 @@
+ 
+ Example 8.7
+ The decrease in availability is 260.756521 kJ/kg
+ The maximum work is 260.756521 kJ/kg
+ The irreversibility is 49.656521 kJ/kg
+ Alternatively, The irreversibility is 49.656521 kJ/kg 
+\ No newline at end of file