1 files changed, 26 insertions, 0 deletions
diff --git a/3685/CH9/EX9.4/Ex9_4.sce b/3685/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..6ec5c98d9
--- /dev/null
+++ b/3685/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,26 @@
+clc
+// for T = 350 degree
+T1 = 350 // Temperature in degree Celsius
+v1 = 0.2003 // specific volume in m^3/kg
+h1 = 3149.5 // Specific enthalpy in kJ/kgK
+s1 = 7.1369 // Entropy in kJ/kgK
+// for T = 400 degree
+T2 = 400 // Temperature in degree Celsius
+v2 = 0.2178 // specific volume in m^3/kg
+h2 = 3257.5 // Specific enthalpy in kJ/kgK
+s2 = 7.3026// Entropy in kJ/kgK
+// Interpolation for T = 380
+
+printf("\n Example 9.4")
+T = [T1 T2]
+v = [v1 v2]
+h = [h1 h2]
+s = [s1 s2]
+v3 = interpln([T;v],380)
+h3 = interpln([T;h],380)
+s3 = interpln([T;s],380)
+
+printf("\n The entropy, enthalpy and volume of steam at 1.4MPa and 380 degree are \n  %f kJ/kg K, %fkJ/kg, %fm3/kg respectively",s3,h3,v3)
+//The answers vary due to round off error
+
+