diff options
Diffstat (limited to '2774/CH5/EX5.7')
| -rwxr-xr-x | 2774/CH5/EX5.7/Ex5_7.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/2774/CH5/EX5.7/Ex5_7.sce b/2774/CH5/EX5.7/Ex5_7.sce new file mode 100755 index 000000000..864f4cb23 --- /dev/null +++ b/2774/CH5/EX5.7/Ex5_7.sce @@ -0,0 +1,13 @@ +clc
+// initialization of variables
+T1=350+273 // initial temperature in kelvin
+P1=1200 // initial pressure in kPa
+P2=140 // final pressure in kPa
+k=1.4 // polytopic index for air
+Cv=0.717 // specific heat at constant volume for air
+//solution
+T2=T1*((P2/P1)**((k-1)/k)) // reversible adiabatic process relation
+
+w=-Cv*(T2-T1) // work done by gases in reversible adiabatic process
+printf(" The work done by gases is %.0f kJ/kg",w)
+
|