1 files changed, 11 insertions, 0 deletions
diff --git a/2507/CH8/EX8.15/Ex8_15.sce b/2507/CH8/EX8.15/Ex8_15.sce
new file mode 100755
index 000000000..519b9f699
--- /dev/null
+++ b/2507/CH8/EX8.15/Ex8_15.sce
@@ -0,0 +1,11 @@
+clc
+clear
+printf("Example 8.15 | Page number 231 \n\n");
+//Evaluate the increse in unavailable energy due to irreversible heat transfer
+//Given Data
+T0 = 300 //K //Surrounding temperature
+T1 = 1000 //K //Temperature of final reservoir
+T2 = 600 //K //Temperature of intermediate reservoir
+Q1 = 100 //kJ //Heat input
+//Solution
+printf("Increase in unavaliable energy due to irreversible heat transfer = %.1f kJ",Q1*(1-T0/T1)-Q1*(1-T0/T2))