diff options
Diffstat (limited to '2837/CH10/EX10.10')
| -rwxr-xr-x | 2837/CH10/EX10.10/Ex10_10.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/2837/CH10/EX10.10/Ex10_10.sce b/2837/CH10/EX10.10/Ex10_10.sce new file mode 100755 index 000000000..70357fa23 --- /dev/null +++ b/2837/CH10/EX10.10/Ex10_10.sce @@ -0,0 +1,19 @@ +clc
+clear
+//Initialization of variables
+disp("From table 1 of keenan and keynes,")
+in=440000 //lb/hr
+out=255000 //lb/hr
+p1=400 //psia
+t1=700 //F
+p2=35 //psia
+t2=290 //F
+vel=500 //ft/s
+hp=44000 //hp
+ent=1362.7 //Btu/lb
+//calculations
+ein=ent*in
+eout=hp*2544 + out*1183 + 925000
+h2= (ein-eout)/185000
+//results
+printf("Specific enthalpy of exhaust steam = %d Btu/lb",h2)
|