779/CH7/EX7.1/7_1.sce


1
2
3
4
5
6

T1 = 37+273;
T2 = 35+273;
m = 1 ;
cv = 4.187;
S = m*cv*log(T2/T1); // S = S2-S1
disp("KJ/K",S,"Change in the entropy of the water is")