diff options
Diffstat (limited to '2519/CH11/EX11.4/Ex11_4.sce')
-rwxr-xr-x | 2519/CH11/EX11.4/Ex11_4.sce | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/2519/CH11/EX11.4/Ex11_4.sce b/2519/CH11/EX11.4/Ex11_4.sce new file mode 100755 index 000000000..d73c78a3f --- /dev/null +++ b/2519/CH11/EX11.4/Ex11_4.sce @@ -0,0 +1,25 @@ +clc
+clear
+//Initialization of variables
+cr=6
+p1=14.7 //psia
+t1=60.3 //F
+M=29
+R=1.986
+//calculations
+disp("from table b-9")
+vr1=158.58
+u1=88.62 //Btu/lbm
+pr1=1.2147
+vr2=vr1/cr
+T2=1050 //R
+u2=181.47 //Btu/lbm
+pr2=14.686
+p2=p1*(pr2/pr1)
+dw=u1-u2
+h2=u2+T2*R/M
+//results
+printf("final temperature = %d R",T2)
+printf("\n final pressure = %.1f psia",p2)
+printf("\n work done = %.2f Btu/lbm",dw)
+printf("\n final enthalpy = %.1f Btu/lbm",h2)
|