03.04.2013 Views

Maple Solutions to the Chemical Engineering Problem Set

Maple Solutions to the Chemical Engineering Problem Set

Maple Solutions to the Chemical Engineering Problem Set

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!