779/CH8/EX8.1/8_1.sce


1
2
3
4
5
6

T0 = 308;
T1 = 693; 
T1_ = 523; // T1_ = T1'
T1_ = 523; // ""
f = (T0*(T1-T1_))/(T1_*(T1-T0));
disp(f,"The fraction of energy that becomes unavailable due to irreversible heat transfer is")