2 files changed, 24 insertions, 0 deletions
diff --git a/3685/CH9/EX9.1/Ex9_1.sce b/3685/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..08798962c
--- /dev/null
+++ b/3685/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,17 @@
+clc
+// At 1 MPa
+tsat = 179.91 // Saturation temperature in degree Celsius
+vf = 0.001127 // Specific volume of fluid in m^3/kg
+vg = 0.19444 // Specific volume of gas in m^3/kg 
+sf = 2.1387 // Specific entropy of fluid in kJ/kgK
+sg = 6.5865// Specific entropy of gas in kJ/kgK
+printf("\n Example 9.1")
+vfg = vg-vf // Change in specific volume due to evaporation
+sfg = sg-sf// Change in specific entropy due to evaporation
+hfg = 2015.3
+printf("\n At 1 MPa, \n saturation temperature is %f degree celcius",tsat)
+printf("\n Changes in specific volume is %f m^3/kg",vfg)
+printf("\n Change in entropy during evaporation is %f kJ/kg K",sfg)
+printf("\n The latent heat of vaporization is %f kJ/kg",hfg)
+// Data is given in the table A.1(b) in Appendix in the book
+
diff --git a/3685/CH9/EX9.1/Ex9_1.txt b/3685/CH9/EX9.1/Ex9_1.txt
new file mode 100644
index 000000000..e704d6009
--- /dev/null
+++ b/3685/CH9/EX9.1/Ex9_1.txt
@@ -0,0 +1,7 @@
+ 
+ Example 9.1
+ At 1 MPa, 
+ saturation temperature is 179.910000 degree celcius
+ Changes in specific volume is 0.193313 m^3/kg
+ Change in entropy during evaporation is 4.447800 kJ/kg K
+ The latent heat of vaporization is 2015.300000 kJ/kg 
+\ No newline at end of file