diff options
Diffstat (limited to '779/CH8/EX8.19/8_19.sce')
-rwxr-xr-x | 779/CH8/EX8.19/8_19.sce | 10 |
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")
|