From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 551/CH14/EX14.13/13.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 551/CH14/EX14.13/13.sce

(limited to '551/CH14/EX14.13')

diff --git a/551/CH14/EX14.13/13.sce b/551/CH14/EX14.13/13.sce
new file mode 100755
index 000000000..4449b3862
--- /dev/null
+++ b/551/CH14/EX14.13/13.sce
@@ -0,0 +1,25 @@
+clc
+L=335; //kJ/kg
+h3=1319.22; //kJ/kg
+h1=100.04; //kJ/kg
+h4=h1;
+s_f2=-2.1338; //kJ/kg K
+s_g2=5.0585; //kJ/kg K
+s_g3=4.4852; //kJ/kg K
+h_f2=-54.56; //kJ/kg
+h_g2=1304.99; //kJ/kg
+
+x2=(s_g3-s_f2)/(s_g2-s_f2);
+
+h2=h_f2+x2*(h_g2-h_f2);
+COP_theoritical=(h2-h1)/(h3-h2);
+COP_actual=0.62*COP_theoritical;
+RE=COP_actual*(h3-h2); //Actual refrigerating effect per kg
+Q=28*1000*L/24/3600; //Heat to be extracted per second
+
+m=Q/RE; //Mass of refrigerant circulated per second
+
+W=m*(h3-h2);
+disp("Power required =")
+disp(W)
+disp("kW")
\ No newline at end of file
-- 
cgit