summaryrefslogtreecommitdiff
path: root/3012/CH11/EX11.8/Ex11_8.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /3012/CH11/EX11.8/Ex11_8.sce
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 '3012/CH11/EX11.8/Ex11_8.sce')
-rwxr-xr-x3012/CH11/EX11.8/Ex11_8.sce27
1 files changed, 27 insertions, 0 deletions
diff --git a/3012/CH11/EX11.8/Ex11_8.sce b/3012/CH11/EX11.8/Ex11_8.sce
new file mode 100755
index 000000000..91eb2d0d9
--- /dev/null
+++ b/3012/CH11/EX11.8/Ex11_8.sce
@@ -0,0 +1,27 @@
+// Given:-
+p1 = 100.00 // in bar
+T1 = 300.00 // in kelvin
+p2 = 40.00 // in bar
+T2 = 245.00 // in kelvin
+
+
+// From table A-23
+h1starbar = 8723.00 // in kj/kmol
+h2starbar = 7121.00 // in kj/kmol
+// From Tables A-1
+Tc = 126.00 // critical temperature in kelvin
+pc = 33.9 // critical pressure in bar
+M = 28.00 // molar mass in kg/kmol
+Rbar = 8.314 // universal gas constant in kj/(kmol.K)
+Term1 = 0.5
+Term2 = 0.31
+
+// Calculations
+TR1 = T1/Tc // reduced temperature at the inlet
+PR1 = p1/pc // reduced pressure at the inlet
+TR2 = T2/Tc // reduced temperature at the exit
+PR2 = p2/pc // reduced pressure at the exit
+wcvdot = (1.00/M)*(h1starbar-h2starbar-Rbar*Tc*(Term1-Term2)) // in kj/kg
+
+// Result
+printf( ' The work developed, in kJ per kg of nitrogen flowing is : %.2f',wcvdot)