From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1472/CH14/EX14.3.a/14_3.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 1472/CH14/EX14.3.a/14_3.sce

(limited to '1472/CH14/EX14.3.a')

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)
-- 
cgit