summaryrefslogtreecommitdiff
path: root/551/CH14/EX14.9
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /551/CH14/EX14.9
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '551/CH14/EX14.9')
-rwxr-xr-x551/CH14/EX14.9/9.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/551/CH14/EX14.9/9.sce b/551/CH14/EX14.9/9.sce
new file mode 100755
index 000000000..e76b69765
--- /dev/null
+++ b/551/CH14/EX14.9/9.sce
@@ -0,0 +1,21 @@
+clc
+y=1.4;
+n=1.35;
+cp=1.003; //kJ/kg K
+p2=1; //bar
+p1=8; //bar
+T3=282; //K
+T4=302; //K
+T1=T4;
+T4=T3*(p1/p2)^((n-1)/n);
+T2=T1*(p2/p1)^((n-1)/n);
+
+Q1=cp*(T3-T2); //Heat extracted from cold chamber per kg of air
+Q2=cp*(T4-T1); //Heat rejected in the cooling chamber per kg of air
+cv=cp/y;
+R=cp-cv;
+W=n/(n-1)*R*((T4-T3) - (T1-T2));
+
+COP=Q1/W;
+disp("COP=")
+disp(COP) \ No newline at end of file