2 files changed, 22 insertions, 0 deletions
diff --git a/3685/CH19/EX19.14/Ex19_14.sce b/3685/CH19/EX19.14/Ex19_14.sce
new file mode 100644
index 000000000..9affb4883
--- /dev/null
+++ b/3685/CH19/EX19.14/Ex19_14.sce
@@ -0,0 +1,17 @@
+clc
+// Given that
+p1 = 1.013 // Inlet pressure in bar
+r = 1.5 // Pressure ratio
+Vs = 0.03 // Induce volume of air in m^3/rev
+gama = 1.4 
+printf("\n Example 19.14\n")
+p2 = p1*r
+W = (p2-p1)*Vs*100
+pi = (p1+p2)/2
+A_A = (gama/(gama-1))*(p1*Vs)*((pi/p1)^((gama-1)/gama)-1)*100
+Vb = Vs *((p1/pi)^(1/gama))
+A_B = (p2-pi)*Vb*100
+Wr = A_A + A_B
+printf("\n Work input = %f kJ/rev,\n Work input for a vane-type compressor = %f kJ/rev",W,Wr)
+// The answers given in the book vary due to round off error
+ 
diff --git a/3685/CH19/EX19.14/Ex19_14.txt b/3685/CH19/EX19.14/Ex19_14.txt
new file mode 100644
index 000000000..1e8c0f0bb
--- /dev/null
+++ b/3685/CH19/EX19.14/Ex19_14.txt
@@ -0,0 +1,5 @@
+ 
+ Example 19.14
+
+ Work input = 1.519500 kJ/rev,
+ Work input for a vane-type compressor = 1.348030 kJ/rev 
+\ No newline at end of file