1 files changed, 15 insertions, 0 deletions
diff --git a/1019/CH7/EX7.10/Example_7_10.sce b/1019/CH7/EX7.10/Example_7_10.sce
new file mode 100644
index 000000000..359cd58f0
--- /dev/null
+++ b/1019/CH7/EX7.10/Example_7_10.sce
@@ -0,0 +1,15 @@
+//Example 7.10
+clear;
+clc;
+
+//Given
+R=8.314;//gas constant in J K^-1 mol^-1
+T=298;//temperature in K
+To=353;//Equillibrium temperature in K
+delHfus=19290;//Latent heat of fusion in J mol^-1
+
+//To determine the ideal solubility of napthlene at 298 K
+X=(delHfus/R)*((1/To)-(1/T));//X=log(x)
+x=exp(X);//x is the solubility
+mprintf('The ideal solubility of napthlene at 298 K = %f',x);
+//end
+\ No newline at end of file