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