551/CH5/EX5.25/25.sce


1
2
3
4
5
6
7
8
9
10
11

clc
R=287; //kJ/kg.K
dU=0;
W=0;
Q=dU+W;

dS=R*log(2); //v2/v1=2

disp("Change in entropy = ")
disp(dS)
disp("kJ/kg.K")