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/CH12/EX12.10/Example12_10.sce | 40 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100755 647/CH12/EX12.10/Example12_10.sce

(limited to '647/CH12/EX12.10/Example12_10.sce')

diff --git a/647/CH12/EX12.10/Example12_10.sce b/647/CH12/EX12.10/Example12_10.sce
new file mode 100755
index 000000000..3c1d4c9fa
--- /dev/null
+++ b/647/CH12/EX12.10/Example12_10.sce
@@ -0,0 +1,40 @@
+clear;
+clc;
+
+// Example: 12.10
+// Page: 489
+
+printf("Example: 12.10 - Page: 489\n\n");
+
+// Solution
+
+//*****Data******//
+// Reaction: CO(g) + H2O(g) ------> CO2(g) + H2(g)
+P = 10;// [bar]
+T = 1000;// [K]
+K_1000 = 1.5;
+//***********//
+
+// Moles in feed:
+nCO_feed = 1;
+nH20_feed = 1;
+// Let e be the degree of completion at equilibrium.
+// Moles at Equilibrium:
+// nCO_eqb = 1 - e;
+// nH20_eqb = 1 - e;
+// nCO2_eqb = e;
+// nH2_eqb = e;
+// Total moles at equilibrium = 1 - e + 1 - e + e + e = 2
+// Mole Fractions at Equilibrium:
+// yCO_eqb = (1 - e)/2;
+// yH20_eqb = (1 - e)/2;
+// yCO2_eqb = e/2;
+// yH2_eqb = e/2;
+// Sum of stoichometric coeffecient:
+v = 1 + 1 - 1 - 1;
+K = K_1000*P^v;
+deff('[y] = f(e)','y = K - (e/2)*(e/2)/(((1 - e)/2)*(1 - e)/2)');
+e = fsolve(0.5,f);
+printf("Composition of the gas leaving the mixture\n");
+printf("yCO = yH20 = %.4f\n",(1 - e)/2);
+printf("yCO2 = yH2 = %.4f\n",e/2);
\ No newline at end of file
-- 
cgit