summaryrefslogtreecommitdiff
path: root/3718/CH3/EX3.21/Ex3_21.sce
blob: 35b67c388f75755fdf7ecf4f68f6e2ed34ae9d69 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Chapter 3: Thermodynamic and Chemical Equilibrium
//Problem: 21
clc;

//Declaration of Variables
Kc = 0.5         // mole square litre square
T = 400          // K
R = 0.082        // litre atm per degree  per mole

// Solution
Kp = Kc * (R * T) ** (-2)

mprintf("The given equilibrium is\n")
mprintf(" N2(g) + 3H2(g) <--> 2NH3(g)\n")
mprintf(" Kp is %.3e",Kp)