632/CH11/EX11.13/example11_13.sce


1
2
3
4
5
6
7
8

//clc()
T1 = 1500;//K
Tr = 273;//K
T2 = 400;//K
Cpm1 = 50;//kJ/kmol
Cpm2 = 35;//kJ/mol
H = Cpm1 * ( T1 - Tr ) - Cpm2 * ( T2 - Tr );
disp("kJ/kmol",H,"Enthalpy change = ")