summaryrefslogtreecommitdiff
path: root/2762/CH10/EX10.2.1/10_2_1.sce
blob: d50088d68b6998177c5b35708b6a55345c33c56d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Transport Processes and Seperation Process Principles
//Chapter 10
//Example 10.2-1
//Stage and continuous Gas-liquid Seperation Processes
//given data
pa=0.21;//atm
H=4.38*10000;//henreys law constant
xa=pa/H;
mprintf("the amount of O2 dissolved is %f mol O2 in 1 mol water or",xa)
xad=(xa/18)*100;
mprintf(" %f per 100 parts",xad)