initial commit / add all books

1 files changed, 21 insertions, 0 deletions

diff --git a/572/CH13/EX13.13/c13_13.sce b/572/CH13/EX13.13/c13_13.sce
new file mode 100755
index 000000000..acc14c9c6
--- /dev/null
+++ b/572/CH13/EX13.13/c13_13.sce
@@ -0,0 +1,21 @@
+//(13.13)   Steam at 5 bar, 240C leaks from a line in a vapor power plant. Evaluate the flow exergy of the steam, in kJ/kg, relative to an environment at 25C, 1 atm in which the mole fraction of water vapor is yeH2O = 0.0303

+

+

+//solution

+Rbar = 8.314                                                                    //universal gas constant in SI units

+Tnot = 298                                                                      //in kelvin

+//With data from the steam tables

+h = 2939.9                                                                      //in kj/kg

+hnot = 104.9                                                                    //in kj/kg

+s = 7.2307                                                                      //in kj/kg

+snot = .3674                                                                    //in kj/kg

+//With data from Table A-25

+gbarH2Oliq = -237180

+gbarH2Ogas = -228590

+yeH2O = .0303

+M =18                                                                           //molar mass of steam

+

+ech = (1/M)*(gbarH2Oliq-gbarH2Ogas + Rbar*Tnot*log(1/yeH2O))                    //in kj/kg

+

+ef = h-hnot-Tnot*(s-snot) + ech                                                 //in kj/kg

+printf(' the flow exergy of the steam, in kJ/k is:  %f',ef)
\ No newline at end of file