Maple Solutions to the Chemical Engineering Problem Set
Maple Solutions to the Chemical Engineering Problem Set
Maple Solutions to the Chemical Engineering Problem Set
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
specifications we may make.<br />
In <strong>the</strong> problem as posed <strong>the</strong> composition of all final product streams is given. However, in view of <strong>the</strong><br />
mole fraction summation equations we may only specify 3 from each stream; <strong>the</strong> choice of which <strong>to</strong><br />
omit is arbitrary - we leave out <strong>the</strong> lowest mole fraction in most cases.<br />
> Specs[5]:=x[X,4]=0.07; Specs[6]:=x[B,4]=0.35; Specs[7] := x[T,4]=0.54;<br />
Specs := x = .07<br />
5 X, 4<br />
Specs := x = .35<br />
6 B, 4<br />
Specs := x = .54<br />
7 T, 4<br />
> Specs[8]:=x[X,5]=0.18; Specs[9]:=x[B,5]=0.16; Specs[10] := x[T,5]=0.42;<br />
Specs := x = .18<br />
8 X, 5<br />
Specs := x = .16<br />
9 B, 5<br />
Specs := x = .42<br />
10 T, 5<br />
> Specs[11]:=x[X,6]=0.15; Specs[12]:=x[B,6]=0.21; Specs[13] := x[T,6]=0.54;<br />
Specs := x = .15<br />
11 X, 6<br />
Specs := x = .21<br />
12 B, 6<br />
Specs := x = .54<br />
13 T, 6<br />
> Specs[14]:=x[X,7]=0.24; Specs[15]:=x[S,7]=0.65; Specs[16] := x[T,7]=0.10;<br />
Specs := x = .24<br />
14 X, 7<br />
Specs := x = .65<br />
15 S, 7<br />
Specs := x = .10<br />
16 T, 7<br />
We now have <strong>the</strong> right number of specification equations which we combine in a set<br />
> SpecEqns := {seq(Specs[l],l=1..DegFree)};<br />
SpecEqns := { x = .21 , x = .15 , x = .16 , x = .42 , x = .54 , x = .65 , x = .24 , F = 70<br />
,<br />
B, 6 X, 6 B, 5 T, 5 T, 6 S, 7 X, 7 1<br />
x = .10 , x = .15 , x = .25 , x = .4 , x = .07 , x = .54 , x = .35 , x = .18<br />
}<br />
T, 7 X, 1 S, 1 T, 1 X, 4 T, 4 B, 4 X, 5<br />
> nops(SpecEqns);<br />
16<br />
We augment <strong>the</strong> set of equations with <strong>the</strong> specification equations<br />
> AllEqns := Eqns union SpecEqns;<br />
AllEqns := { x = .21 , x + x + x + x = 1 , x = .15 , x = .16 , x = .42<br />
,<br />
B, 6 X, 6 S, 6 T, 6 B, 6 X, 6 B, 5 T, 5<br />
F x = F x + F x , x = .54 , x = .65 , x + x + x + x = 1 , x = .24 , F = 70<br />
,<br />
3 T, 3 6 T, 6 7 T, 7 T, 6 S, 7 X, 7 S, 7 T, 7 B, 7 X, 7 1<br />
F x = F x + F x , x = .10 , x = .15 , F x = F x + F x , x = .25<br />
,<br />
3 B, 3 6 B, 6 7 B, 7 T, 7 X, 1 1 X, 1 2 X, 2 3 X, 3 S, 1<br />
F x = F x + F x , F x = F x + F x , F x = F x + F x , x = .4<br />
,<br />
1 S, 1 2 S, 2 3 S, 3 1 B, 1 2 B, 2 3 B, 3 1 T, 1 2 T, 2 3 T, 3 T, 1<br />
F x = F x + F x , F x = F x + F x , x = .07 , x + x + x + x = 1<br />
,<br />
2 X, 2 4 X, 4 5 X, 5 2 S, 2 4 S, 4 5 S, 5 X, 4 X, 1 S, 1 T, 1 B, 1<br />
Page 12