summaryrefslogtreecommitdiff
path: root/1922/CH9/EX9.7/9_7.sce
blob: 1e5caaa9eb9dacdf11fadccaa9900dfc47f719ee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clc
clear
//Initialization of variables
a1=0.956
y=0.014
x=0.956
M=18
z=0.475
P=8.37 //Mpa
//calculations
m=y/(x*M) *10^3
w=0.0856
phi1=-0.04
phi2=0.06
phi=10^(phi1+ w*phi2)
f=z*phi*P
K=m/(f*a1)
//results
printf("Equilibrium constant = %.3f",K)