summaryrefslogtreecommitdiff
path: root/555/CH6/EX6.5/5.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /555/CH6/EX6.5/5.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '555/CH6/EX6.5/5.sce')
-rw-r--r--555/CH6/EX6.5/5.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/555/CH6/EX6.5/5.sce b/555/CH6/EX6.5/5.sce
new file mode 100644
index 000000000..fba6315db
--- /dev/null
+++ b/555/CH6/EX6.5/5.sce
@@ -0,0 +1,19 @@
+// Implementation of example 6.5
+// Basic and Applied Thermodynamics by P.K.Nag
+
+clc
+clear
+
+T1 = 473; //K
+T2 = 293; //K
+T3 = 273; //K
+//let Q1 be any constant
+Q1 = 1;
+Q2 = Q1*T2/T1;
+W = (T1 - T2)*Q1/T1;
+//COP = T2/(T2 - T3) = Q'/W
+Q2_ = T2/(T2 - T3) * (T1 - T2)/T1 * Q1;
+
+MF = (Q2 + Q2_)/Q1; //multiplication factor
+printf("Multiplication factor, MF = %0.2f",MF);
+// end \ No newline at end of file