diff options
Diffstat (limited to '1919/CH4/EX4.7')
-rwxr-xr-x | 1919/CH4/EX4.7/Ex4_7.sce | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/1919/CH4/EX4.7/Ex4_7.sce b/1919/CH4/EX4.7/Ex4_7.sce new file mode 100755 index 000000000..cd17f9004 --- /dev/null +++ b/1919/CH4/EX4.7/Ex4_7.sce @@ -0,0 +1,29 @@ +
+// Theory and Problems of Thermodynamics
+// Chapter 4
+// Energy Analysis of Process
+// Example 7
+
+clear ;clc;
+
+//Given data
+gam = 1.4 // ideal gas constant gamma
+T1 = 700 // entering Temperature in K
+P1 = 0.5 // Entering steam Pressure in MPa
+P2 = 0.1 // leaving steam Pressure in MPa
+R = 8.314 // gas constant
+
+// Calculation
+C_p = R*gam/(gam-1) // Specific heat in J/molK
+
+// Exit velocity of gas
+V2 = sqrt(2*C_p*T1*(1-(P2/P1)^((gam-1)/gam)))
+
+// Output Results
+mprintf('Exit velocity of gas = %6.1f m/s',V2)
+
+
+
+
+
+
|