summaryrefslogtreecommitdiff
path: root/2735/CH15/EX15.5
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2735/CH15/EX15.5
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 '2735/CH15/EX15.5')
-rwxr-xr-x2735/CH15/EX15.5/Ex15_5.sce30
1 files changed, 30 insertions, 0 deletions
diff --git a/2735/CH15/EX15.5/Ex15_5.sce b/2735/CH15/EX15.5/Ex15_5.sce
new file mode 100755
index 000000000..b4a53857e
--- /dev/null
+++ b/2735/CH15/EX15.5/Ex15_5.sce
@@ -0,0 +1,30 @@
+clc
+clear
+//Initialization of variables
+sh=1.6070
+ph=94.8 //psia
+th=324 //F
+tr=60 //F
+hh=1186.2
+pi=94.8 //psia
+hi=1399.5
+si=1.8265
+//calculations
+Q=hi-hh
+Hr=-(tr+459.7)*(si-sh)
+work= Q+Hr
+eff=work/Q
+Qa1=1557.5
+W1=637.1
+etat=W1/Qa1
+he=1374
+hj=948
+Whp=he-hh
+Wlp=hi-hj
+Wnet=Whp+Wlp
+//results
+printf("Thermal efficiency in case 1= %.1f percent",eff*100)
+printf("\n Thermal efficiency in case 1= %.1f percent",etat*100)
+printf("\n High pressure work = %.1f Btu/lbm",Whp)
+printf("\n Low pressure work = %.1f Btu/lbm",Wlp)
+printf("\n Net work = %.1f Btu/lbm",Wnet)