1 files changed, 10 insertions, 0 deletions
diff --git a/779/CH8/EX8.19/8_19.sce b/779/CH8/EX8.19/8_19.sce
new file mode 100755
index 000000000..f039e0ea1
--- /dev/null
+++ b/779/CH8/EX8.19/8_19.sce
@@ -0,0 +1,10 @@
+T0 = 300; T = 1500;
+Q = -8.5; W = 8.5;
+// Case (a)
+I = Q*(1-T0/T) + W;
+R = Q*(1-T0/T);
+disp("kW",I,"and",R,"Rate of availability transfer with heat and the irreversibility rate are")
+// Case (b)
+T1 = 500;
+Ib = - Q*(1-T0/T) + Q*(1-T0/T1);
+disp("kW",Ib,"Rate of availability in case b is")