1 files changed, 23 insertions, 0 deletions
diff --git a/611/CH13/EX13.4/Chap13_Ex4.sce b/611/CH13/EX13.4/Chap13_Ex4.sce
new file mode 100755
index 000000000..922270d48
--- /dev/null
+++ b/611/CH13/EX13.4/Chap13_Ex4.sce
@@ -0,0 +1,23 @@
+// Y.V.C.Rao ,1997.Chemical Engineering Thermodynamics.Universities Press,Hyderabad,India.
+
+//Chapter-13,Example 4,Page 483
+//Title:Ideal solubility
+//================================================================================================================
+clear 
+clc
+
+//INPUT
+temp=20; // prevailing tempearture in degree celsius
+melt_temp=80.05; // melting point of naphthalene in degree celsius
+hf=18.574; // enthalpy of fusion in kJ/mol
+R=8.314; // universal gas constant in J/molK
+
+//CALCULATION
+t=temp+273.15; // convesion of prevailing temperature to K
+melt_t=melt_temp+273.15; //conversion of melting point of naphtalene to K
+x2=exp(((hf*10^3)/R)*((1/melt_t)-(1/t))); //calculation of ideal solubility using Eq.(13.40)(no unit)
+
+//OUTPUT
+mprintf('\n The ideal solubility of naphthalene at 20 degree celsius= %0.4f',x2);
+
+//===============================================END OF PROGRAM===================================================