diff options
Diffstat (limited to '2141/CH9/EX9.3/Ex9_3.sce')
| -rwxr-xr-x | 2141/CH9/EX9.3/Ex9_3.sce | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/2141/CH9/EX9.3/Ex9_3.sce b/2141/CH9/EX9.3/Ex9_3.sce new file mode 100755 index 000000000..ed93ae6b5 --- /dev/null +++ b/2141/CH9/EX9.3/Ex9_3.sce @@ -0,0 +1,22 @@ +
+clc
+//initialisation of variables
+h3=1407.7
+s3=1.6343
+h4=1170.5
+h5=1430.5
+s5=1.9015
+v=0.01614
+h1=69.7
+p1=1 //lbf/in^2
+p2=600//lbf/in^2
+h6=1106.0-0.0416*1036.8//Btu/lbm
+Wp=v*(p2-p1)*144/778//Btu/lbm
+//CALCULATIONS
+Wt=(h3-h4)+(h5-h6)//Btu/lbm
+h2=h1+Wp//Btu/lbm
+qH=(h3-h2)+(h5-h4)//Btu/lbm
+Wnet=Wt-Wp//Btu/lbm
+N=Wnet/qH*100//per-cent
+//RESULTS
+printf('Determine the cycle efficiecy=% f per-cent',N)
|