1 files changed, 27 insertions, 0 deletions
diff --git a/551/CH14/EX14.1/1.sce b/551/CH14/EX14.1/1.sce
new file mode 100755
index 000000000..418a1d84f
--- /dev/null
+++ b/551/CH14/EX14.1/1.sce
@@ -0,0 +1,27 @@
+clc
+T2=235; //K
+P=1.3; //kW
+
+disp("(i) C.O.P. of Carnot refrigerator =")
+COP=14000/P/60/60;
+disp(COP)
+
+
+disp("(ii) Higher temperature of the cycle =")
+T1=T2/COP + T2;
+t1=T1-273;
+disp(t1)
+disp("0C")
+
+
+disp("(iii) Heat delivered as heat pump")
+Qabs=14000/60; //Heat absorbed
+W=P*60;
+Q=Qabs+W;
+disp("Q=")
+disp(Q)
+disp("kJ/min")
+
+COP=Q/W;
+disp("COP of heat pump =")
+disp(COP)
+\ No newline at end of file