diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1472/CH14/EX14.3.b | |
download | Scilab-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-x | 1472/CH14/EX14.3.b/14_3b.sce | 32 |
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)
|