summaryrefslogtreecommitdiff
path: root/1472/CH14/EX14.3.b
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1472/CH14/EX14.3.b
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 '1472/CH14/EX14.3.b')
-rwxr-xr-x1472/CH14/EX14.3.b/14_3b.sce32
1 files changed, 32 insertions, 0 deletions
diff --git a/1472/CH14/EX14.3.b/14_3b.sce b/1472/CH14/EX14.3.b/14_3b.sce
new file mode 100755
index 000000000..7a38de9cb
--- /dev/null
+++ b/1472/CH14/EX14.3.b/14_3b.sce
@@ -0,0 +1,32 @@
+clc
+//initialization of varaibles
+P1=200 //psia
+P2=1 //psia
+e=0.7
+//calculations
+h1=1198.4
+h2s=863.5
+h3r=69.7
+h4r=70.3
+h3c=300.7
+h4c=355.4
+disp("For Rankine cycle with actual machines, ")
+Wtr=e*(h1-h2s)
+Q1r=(h1-h4r)
+Wpr=(h4r-h3r)/e
+Wnetr=Wtr-Wpr
+eta1=(Wtr-Wpr)/Q1r
+wr=2545/Wtr
+printf("Back work = %.1f B/lb",Wnetr)
+printf("\n Efficiency = %.3f ",eta1)
+printf("\n Steam rate = %.1f lb/hp hr",wr)
+disp("For carnot cycle,")
+Wtc=e*(h1-h2s)
+Q1c=h1-h4c
+Wpc=(h4c-h3c)/e
+Wnetc=Wtc-Wpc
+eta2=(Wtc-Wpc)/Q1c
+wc=16.2
+printf("Back work = %.1f B/lb",Wnetc)
+printf("\n Efficiency = %.3f ",eta2)
+printf("\n Steam rate = %.1f lb/hp hr",wc)