1 files changed, 22 insertions, 0 deletions
diff --git a/3685/CH8/EX8.19/Ex8_19.sce b/3685/CH8/EX8.19/Ex8_19.sce
new file mode 100644
index 000000000..48cbd7dde
--- /dev/null
+++ b/3685/CH8/EX8.19/Ex8_19.sce
@@ -0,0 +1,22 @@
+clc
+T0 = 300 // Ambient temperature in K
+T = 1500 // Resistor temperature in K
+Q = -8.5 // Power supply in kW
+ 
+// Case (a)
+W = -Q // work transfer
+I = Q*(1-T0/T) + W // Irreversibility
+R = Q*(1-T0/T) // availability
+
+printf("\n Example 8.19")
+printf("\n Case A:")
+printf("\n Rate of availability transfer with heat and the irreversibility rate are \n  %f kW and %f kW respectively.",I,R)
+// Case (b)
+T1 = 500 // Furnace wall temperature
+Ib = - Q*(1-T0/T) + Q*(1-T0/T1) // Irreversibility
+printf("\n Case B:")
+printf("\n Rate of availability in case b is %f kW ",Ib)
+
+
+
+