diff options
Diffstat (limited to '1709/CH7/EX7.1')
| -rwxr-xr-x | 1709/CH7/EX7.1/7_1.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1709/CH7/EX7.1/7_1.sce b/1709/CH7/EX7.1/7_1.sce new file mode 100755 index 000000000..6343ae798 --- /dev/null +++ b/1709/CH7/EX7.1/7_1.sce @@ -0,0 +1,15 @@ +clc
+//Initialization of variables
+disp("Using gas tables,")
+T1=1160 //R
+h1=281.14 //B/lbm
+Pr1=21.18
+P2=30 //psia
+P1=100 //psia
+//calculations
+Pr2=Pr1*P2/P1
+T2=833 //R
+h2=199.45 //B/lbm
+dh=h2-h1
+//results
+printf("Change in enthalpy = %.2f B/lbm",dh)
|