1 files changed, 16 insertions, 0 deletions
diff --git a/551/CH14/EX14.5/5.sce b/551/CH14/EX14.5/5.sce
new file mode 100755
index 000000000..3d88afec2
--- /dev/null
+++ b/551/CH14/EX14.5/5.sce
@@ -0,0 +1,16 @@
+clc
+T1=291; //K
+T2=265; //K
+T0=273; //K
+cpw=4.18; //kJ/kg
+cpi=2.09; //kJ/kg
+L=334; //kJ/kg
+m=400; //kg
+
+COP=T2/(T1-T2);
+Rn=cpw*(T1-T0) + L + cpi*(T0-T2);
+
+W=Rn*m/COP/3600; //kJ/s
+disp("Least power =")
+disp(W)
+disp("kW")
+\ No newline at end of file