summaryrefslogtreecommitdiff
path: root/551/CH6/EX6.7/7.sce
blob: c4952d0b3cd10c2b76e87418374af1f274e64650 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc
m=15; //kg
T1=340; //K
T0=300; //K
cp=4.187; //kJ/kgK
//Work added during churning = Increase in enthalpy of water
W=m*cp*(T1-T0);
ds=cp*log(T1/T0);
AE=m*[cp*(T1-T0)-T0*ds];
AE_loss=W-AE; //Loss in availability
disp("Loss in availability")
disp(AE_loss)
disp("kJ")