summaryrefslogtreecommitdiff
path: root/632/CH9/EX9.15/example9_15.sce
blob: 7bbef79c28cff4389a023fa90d557d1a77773d03 (plain)
1
2
3
4
5
6
7
8
9
10
11
//clc()
G1 = 100;//kmol
//G1 and G2 be the molar flow rate of the gas at the inlet and the exit of the absorber resp.,y1 and y2 mole fraction at entrance and exit resp.,
y1 = 0.25;//%
y2 = 0.05;//%
//air balance gives, G1 * ( 1-y1 ) = G2 * ( 1-y2 )
G2 = G1 * ( 1-y1 ) / (1 - y2);
maleaving = G2 * y2;
maentering = G1 * y1;
Pabsorbed = (maentering - maleaving) * 100 / ( maentering);
disp("%",Pabsorbed,"Percentage of acetone absorbed = ")