1 files changed, 18 insertions, 0 deletions
diff --git a/632/CH8/EX8.9/example8_9.sce b/632/CH8/EX8.9/example8_9.sce
new file mode 100755
index 000000000..3452e92b6
--- /dev/null
+++ b/632/CH8/EX8.9/example8_9.sce
@@ -0,0 +1,18 @@
+//clc()
+T = 300;//K
+T1 = 285;//K
+Pwater = 3.56;//kPa
+Pwater1 = 1.4;//kPa
+V = 1;//m^3 ( Basis )
+Vstp = 22.4143;//m^3/kmol
+N = V / Vstp;
+Pstp = 101.3;//kPa
+Y = Pwater / (Pstp - Pwater);
+Y1 = Pwater1 / (Pstp - Pwater1);
+Nremoved = Y - Y1;
+Ndryair = N * 1 / (1 + Y);
+mremoved = Ndryair * Nremoved * 18.016;
+disp("kg",mremoved,"(a)amount of water removed = ")
+Nremaining = Ndryair * Y1 ;
+V1 = (Ndryair + Nremaining) * Vstp ;
+disp("m^3",V1,"(b)Volume of gas at stp after drying = ")
+\ No newline at end of file