Distillation in a column with a given number of theoretical platesThe boiling liquid is a mixture of two volatile components, wherein the mole fraction of the more volatile component is symbolized by X (hence 1–X matches the less volatile component). |
Program Listing |
Elucidation and Help |
PROGRAM:RECTIBD | Title |
ClrHome | > PRGM > I/O > ClrHome |
Disp "REL.VOLATILITY" | (α>1) |
Input A | |
max(A,1)→A | > MATH > NUM > max( "→" Symbolizes the STO> key |
Disp "X POT MIXTURE" | Composition of the boiling mixture. X is the mole fraction of the more volatile component of the liquid (0<X<1). |
Input M | |
min(M,1)→M | |
Disp "NUMBER OF PLATES" | Number of theoretical plates inclusive of the pot |
Input P | |
Disp "REFLUX RATIO" | |
Input R | |
{P,3}→dim([A]) | > 2nd, MATRX > MATH > dim( > 2nd, MATRX > NAMES > [A] |
1→B:M→C | |
ClrHome | |
Lbl 1 | > PRGM > CTL > Lbl Beginning of iteration loop |
If B–C<.00001 | |
Goto 2 | |
(B+C)/2→D:D→X | |
For(N,1,P) | |
(RX+D)/(R+1)→Y | Y is the mole fraction of the more volatile component of the vapour (0<Y<1). |
Y/(Y+A(1–Y))→X | Y and X are at equilibrium |
N→[A](N,1) | |
X→[A](N,2) | |
Y→[A](N,3) | |
End | |
If X<M | |
Then | |
D→C | |
Else | |
D→B | |
End | |
Goto 1 | |
Lbl 2 | |
round((B+C)/2,2)→D | |
Disp "X DISTILLATE",D,"","PLATE, X, Y >>" | Distillate composition |
Pause | |
round([A],2)→[A] | |
Disp [A] | Compositions (first seven plates) |
Pause :ClrHome | |
Disp "X,Y IN MAT [A]" | Merely a reminder |
After running and quitting the program, you still can have access to the liquid and vapour compositions X and Y of all plates. This may especially be of intrest when the number of plates exceeds seven. You'll find them stored in matrix [A] (> 2nd, MATRX > NAMES > [A], ENTER, ENTER).
ExampleConsider a mixture of benzene and toluene. Input values: Output: The vapour with composition Y3 = 0,88 is ascending from plate 3. (To retrieve the plate compositions as shown in an example coming with the program RECTIBP, put in XP = 0,58.) |
Hein ten Horn
Top | Programs Texas Instruments | Home