551/CH14/EX14.4/4.sce


1
2
3
4
5
6
7
8
9
10
11
12
13

clc
T1=293; //K
T2=265; //K
T0=273; //K
L=335; //Latent heat of ice in kJ/kg
cpw=4.18;

COP=T2/(T1-T2);
Rn=cpw*(T1-T0)+L;
m_ice=COP*3600/Rn;
disp("ice formed per kWh =")
disp(m_ice)
disp("kg")