From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 647/CH10/EX10.11/Example10_11.sce | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100755 647/CH10/EX10.11/Example10_11.sce

(limited to '647/CH10/EX10.11')

diff --git a/647/CH10/EX10.11/Example10_11.sce b/647/CH10/EX10.11/Example10_11.sce
new file mode 100755
index 000000000..ccb833502
--- /dev/null
+++ b/647/CH10/EX10.11/Example10_11.sce
@@ -0,0 +1,34 @@
+clear;
+clc;
+
+// Example: 10.11
+// Page: 413
+
+printf("Example: 10.11 - Page: 413\n\n");
+
+// Solution
+
+//*****Data******//
+P = 760;// [mm of Hg]
+P1sat = 995;// [mm of Hg]
+P2sat = 885;// [mm of Hg]
+x1 = 0.335;
+T = 64.6;// [OC]
+//****************//
+
+x2 = 1 - x1;
+gama1 = P/P1sat;
+gama2 = P/P2sat;
+A = log(gama1)*(1 + (x2*log(gama2))/(x1*log(gama1)))^2;
+B = log(gama2)*(1 + (x1*log(gama1))/(x2*log(gama2)))^2;
+
+// For solution containing 11.1 mol percent acetone:
+x1 = 0.111;
+x2 = 1 - x1;
+gama1 = exp((A*x2^2)/(x2 + (A*x1/(B))^2));
+gama2 = exp((B*x1^2)/(x1 + (B*x2/(A))^2));
+y1 = 1/(1 + (gama2*x2*P2sat/(gama1*x1*P1sat)));
+y2 = 1 - y1;
+printf("Equilibrium Composition\n");
+printf("Acetone Composition = %.2f %%\n",y1*100);
+printf("Chloform composition = %.2f %%\n",y2*100);
\ No newline at end of file
-- 
cgit