summaryrefslogtreecommitdiff
path: root/1472/CH14/EX14.3.a
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.a
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.a')
-rwxr-xr-x1472/CH14/EX14.3.a/14_3.sce32
1 files changed, 32 insertions, 0 deletions
diff --git a/1472/CH14/EX14.3.a/14_3.sce b/1472/CH14/EX14.3.a/14_3.sce
new file mode 100755
index 000000000..50b7bf3d4
--- /dev/null
+++ b/1472/CH14/EX14.3.a/14_3.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, ")
+Wtr=h1-h2s
+Q1r=h1-h4r
+Wpr=h4r-h3r
+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=h1-h2s
+Q1c=h1-h4c
+Wpc=h4c-h3c
+Wnetc=Wtc-Wpc
+eta2=(Wtc-Wpc)/Q1c
+wc=9.1
+printf("Back work = %.1f B/lb",Wnetc)
+printf("\n Efficiency = %.3f ",eta2)
+printf("\n Steam rate = %.1f lb/hp hr",wc)