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

(limited to '647/CH12/EX12.8')

diff --git a/647/CH12/EX12.8/Example12_8.sce b/647/CH12/EX12.8/Example12_8.sce
new file mode 100755
index 000000000..614127b0c
--- /dev/null
+++ b/647/CH12/EX12.8/Example12_8.sce
@@ -0,0 +1,30 @@
+clear;
+clc;
+
+// Example: 12.8
+// Page: 485
+
+printf("Example: 12.8 - Page: 485\n\n");
+
+// Solution
+
+//*****Data******//
+// Reaction: N2(g) + 3H2(g) = 2NH3(g)
+T1 = 298;// [K]
+T2 = 700;// [K]
+H_NH3 = -46.1;// [kJ]
+G_NH3 = -16.747;// [kJ]
+R = 8.314;// [J/mol.K]
+//**************//
+
+H_N2 = 0;// [kJ]
+H_H2 = 0;// [kJ]
+G_N2 = 0;// [kJ]
+G_H2 = 0;// [kJ]
+H_rkn = 2*H_NH3 - (H_N2 + 3*H_H2);// [kJ]
+G_rkn = 2*G_NH3 - (G_N2 + 3*G_H2);// [kJ]
+H_rkn = H_rkn*1000;// [J]
+G_rkn = G_rkn*1000;// [J]
+K1 = exp(-(G_rkn/(R*T1)));
+K2 = K1*exp((H_rkn/R)*((1/T1) - (1/T2)));
+printf("Equilibrium constant at 700 K is %.4e",K2);
\ No newline at end of file
-- 
cgit