1 files changed, 30 insertions, 0 deletions
diff --git a/2870/CH7/EX7.14/Ex7_14.sce b/2870/CH7/EX7.14/Ex7_14.sce
new file mode 100755
index 000000000..d4bc6c6b8
--- /dev/null
+++ b/2870/CH7/EX7.14/Ex7_14.sce
@@ -0,0 +1,30 @@
+clc;clear;
+//Example 7.14
+
+//given data
+P1=3000;// in kPa
+T1=400;
+P2=50;
+T2=100;
+Wout=2000;//in kW
+
+//from Table A-6
+//at P1
+h1=3231.7;
+s1=6.9235;
+//at 2a
+h2a=2682.4;
+//from Table A-6
+//at 2s
+s2s=s1;
+sf=1.0912;
+sg=7.5937;
+hf=340.54;
+hfg=2304.7
+x2s=(s2s-sf)/(sg-sf);
+h2s=hf+x2s*hfg;
+nT=(h1-h2a)/(h1-h2s);
+disp(nT,'isentropic efficiency is')
+//Ein = Eout
+m=Wout/(h1-h2a);
+disp(m,'mass flow rate in kg/s')