diff options
Diffstat (limited to '3831/CH11/EX11.2/Ex11_2.sce')
| -rw-r--r-- | 3831/CH11/EX11.2/Ex11_2.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3831/CH11/EX11.2/Ex11_2.sce b/3831/CH11/EX11.2/Ex11_2.sce new file mode 100644 index 000000000..5456fc8ea --- /dev/null +++ b/3831/CH11/EX11.2/Ex11_2.sce @@ -0,0 +1,14 @@ +// Example 11_2
+clc;funcprot(0);
+// Given data
+p=200;// psia
+T=400;// °F
+
+// Solution
+// From Table C.3a in Thermodynamic Tables to accompany Modern Engineering Thermodynamics, we find that, at this state,
+u=1123.5;// Btu/lbm
+h=1210.8;// Btu/lbm
+s=1.5602;// Btu/lbm.R
+f=u-((T+459.67)*s);// Btu/lbm
+g=h-((T+459.67)*s);// Btu/lbm
+printf("\nThe value of the specific Helmholtz function for superheated water vapor,f=%3.0f Btu/lbm \nThe value of the specific Gibbs function for superheated water vapor,g=%3.0f Btu/lbm",f,g);
|