summaryrefslogtreecommitdiff
path: root/779/CH8/EX8.7
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /779/CH8/EX8.7
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 '779/CH8/EX8.7')
-rwxr-xr-x779/CH8/EX8.7/8_7.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/779/CH8/EX8.7/8_7.sce b/779/CH8/EX8.7/8_7.sce
new file mode 100755
index 000000000..f75328dba
--- /dev/null
+++ b/779/CH8/EX8.7/8_7.sce
@@ -0,0 +1,18 @@
+P1 = 500; P2 = 100;
+T1 = 793; T2 = 573;
+cp = 1.005; T0 = 293; R = 0.287;
+S21 = (R*log(P2/P1))-(cp*log(T2/T1))
+CA = cp*(T1-T2)-T0*S21; // Change in v=availability
+disp("kJ/kg",CA,"The decrease in availability is")
+Wmax = CA;
+disp("kJ/kg",Wmax,"The maximum work is")
+Q = -10;
+W = cp*(T1-T2)+Q ;
+I = Wmax-W;
+disp("kJ/kg",I,"The irreversibility is")
+// Altenatively
+Ssystem = -Q/T0;
+Ssurr = -S21;
+I1 = T0*(Ssystem+Ssurr);
+
+