1 files changed, 23 insertions, 0 deletions
diff --git a/2135/CH6/EX6.17/Exa_6_17.sce b/2135/CH6/EX6.17/Exa_6_17.sce
new file mode 100755
index 000000000..b8d37eb17
--- /dev/null
+++ b/2135/CH6/EX6.17/Exa_6_17.sce
@@ -0,0 +1,23 @@
+//Exa 6.17
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data :
+p1=1;//bar
+x1=0.523;//dry
+Vg1=1.694;//m^3/Kg(at 1 bar)
+hf1=417.5;//KJ/Kg(at p=1 bar)
+hfg1=2258;//KJ/Kg(at p=1 bar)
+h1=hf1+x1*hfg1;//KJ/Kg
+V1=x1*Vg1;//m^3/Kg
+V2=V1;//m^3/Kg(Constant volume process)
+Vg2=V2;//m^3/Kg
+p2=2;//bar;//at Vg2 from steam table
+hg2=2706.3;//KJ/Kg(at 2 bar)
+h2=hg2;//KJ/Kg
+W=0;//KJ/Kg of steam
+q=W+(h2-h1)-100*(p2*V2-p1*V1);//KJ/Kg
+disp(q,"Heat transfered in KJ/Kg : ");
+//Steam table is used to get some data.