1 files changed, 29 insertions, 0 deletions
diff --git a/611/CH11/EX11.9/Chap11_Ex9.sce b/611/CH11/EX11.9/Chap11_Ex9.sce
new file mode 100755
index 000000000..065752c19
--- /dev/null
+++ b/611/CH11/EX11.9/Chap11_Ex9.sce
@@ -0,0 +1,29 @@
+// Y.V.C.Rao ,1997.Chemical Engineering Thermodynamics.Universities Press,Hyderabad,India.
+
+//Chapter-11,Example 9,Page 399
+//Title: Activity coefficients using the Wilson's parameters
+//================================================================================================================
+clear 
+clc
+
+//INPUT
+//For convenience, nitromethane is taken as 1 and carbon tetrachloride as 2
+T=45;//temperature of the system in degree celsius
+A_12=0.1156;//Wilson's parameter for the system at T (no unit)
+A_21=0.2879;//Wilson's parameter for the system at T (no unit)
+x1=0.3;//mole fraction of nitromethane in the liquid mixture (no unit)
+
+//CALCULATION
+x2=1-x1;//calculation of the mole fraction of carbon tetrachloride in the liquid mixture (no unit)
+ln_gaamma1=-log(x1+(A_12*x2))+(x2*((A_12/(x1+(A_12*x2)))-(A_21/((A_21*x1)+x2))));//calculation of ln(activity coefficient) using Eq.(11.89) (no unit)
+gaamma1=exp(ln_gaamma1);//calculation of activity coefficient (no unit)
+ln_gaamma2=-log(x2+(A_21*x1))-(x1*((A_12/(x1+(A_12*x2)))-(A_21/((A_21*x1)+x2))));//calculation of ln(activity coefficient) using Eq.(11.90) (no unit)
+gaamma2=exp(ln_gaamma2);//calculation of activity coefficient (no unit)
+
+//OUTPUT
+
+mprintf('The activity coefficients for the system using Wilsons parameters are : gamma1=%f \t gamma2=%f \t\n ', gaamma1,gaamma2);
+
+//===============================================END OF PROGRAM===================================================
+
+