diff options
Diffstat (limited to '1460/CH7/EX7.12/7_12.sce')
| -rwxr-xr-x | 1460/CH7/EX7.12/7_12.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1460/CH7/EX7.12/7_12.sce b/1460/CH7/EX7.12/7_12.sce new file mode 100755 index 000000000..0a407fe7a --- /dev/null +++ b/1460/CH7/EX7.12/7_12.sce @@ -0,0 +1,15 @@ +clc
+//initialization of variables
+P1=14.7 //lb/in^2
+T1=60+460 //R
+P2=100 //lb/in^2
+T2=470+460 //R
+cv=0.171 //B/lbm F
+cp=0.24//B/lbm F
+//calculations
+WbyJ=cv*(T1-T2)
+W=778*WbyJ
+ds=cp*log(T2/T1) - 53.3*log(P2/P1) /778
+//results
+printf("Work done = %d ft-lb/lbm",W)
+printf("\n Change in entropy = %.4f B/lbm R",ds)
|