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")