1 files changed, 23 insertions, 0 deletions
diff --git a/2135/CH6/EX6.28/Exa_6_28.sce b/2135/CH6/EX6.28/Exa_6_28.sce
new file mode 100755
index 000000000..c58a244ac
--- /dev/null
+++ b/2135/CH6/EX6.28/Exa_6_28.sce
@@ -0,0 +1,23 @@
+//Exa 6.28
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+p1=15;//bar
+p2=15;//bar
+p3=1;//bar
+Tsup3=150;//degree C
+mw=0.2;//Kg/min
+ms=10;//Kg/min
+x1=ms/(ms+mw);//dryness
+disp(x1,"Dryness factor of steam : ");
+hf2=844.7;//KJ/Kg(from steam table,at 15 bar)
+hfg2=1945.2;//KJ/Kg(from steam table,at 15 bar)
+hsup3=2776.3;//KJ/Kg(from steam table,at 15 bar)
+//hsup3=hf2+x2*hfg2;//KJ/Kg
+x2=(hsup3-hf2)/hfg2;//KJ/Kg
+x=x1*x2;//dryness
+disp(x,"Dryness fraction in the mains : ");
+//Steam table is used to get some data.