/a+aha /a+ aharl rlal al 'eh 'ehru ru Tech echnol nologi ogical cal University a!ina"a University College of Engineering (A) Dept. of Petroleuma!ina"a Engineering # Petrochemical Petrochemical Engineering
B. Tech. Petrochemical Engineering Multicomponent Multicompon ent Distillation P$%&$AM %' MUTC%MP%'E'T*e+is Matheson Metho" using Bonner,s -ee" match techniue
Prof. . 0. $ao Programme Director Petroleum Courses
e+is 1 Matheson Metho"2 -ee" Plate Matching The correction method of Bonner can be used to establish a new value of D, di, and xiD,
here !x"# T and !x"#B $ %i&uid com'ositions calculated from the to' and bottom of the column, res'ectivel( di, bi $ the former moles of individual com'onent in the distillate and bottoms diN, biN $ the new values )e'etitive calculations are carried out b( read*usting the mole of com'onents in the distillate and bottoms until the agreement at the feed 'late is met+
REM PROGRAM ON MULTICOMPONENT-Lewis Matheson Method using Bonner's Feed at!h te!hni"ue #IM
$%&(
$+,%&)(
&)(
*F%&)(
*%&( A%&)(
&)( #&%&)(
#EL#%&)( ALP+A%&) REA# NC( NT( NAF( NBF( +,( L, FOR I & TO NC REA# $%I( &)( *%I( NT)( ALP+A%I) NE*T I REA# #( B( R.( RL( /.( /L( R( 0 NF NAF 1 & NIT &
*+,%&)( BI%&)(
2 I & & $+,%I) $%+,( I) /UM FOR 3 & TO NC /UM /UM 1 $%3( I) 4 %ALP+A%3) 5 $+,%I)) NE*T 3 *+,%I) & 4 /UM FOR 3 & TO NC *%3( I) $%3( I) 5 *+,%I) 4 %ALP+A%3) 5 $+,%I)) NE*T 3 , I 1 & FOR 3 & TO NC $%3( ,) *%3( I) 5 %R 4 %R 1 &)) 1 $%3( &) 4 %R 1 &)6 NE*T 3 IF , 7 NF T+EN & I ,6 GOTO &
& FOR 3 & TO NC *F%3) *%3( NF) NE*T 3 M NT && *+,%M) *%+,( M) /UM FOR 3 & TO NC /UM /UM 1 ALP+A%3) 5 *%3( M) 4 *+,%M) NE*T 3 $+,%M) & 4 /UM FOR 3 & TO NC $%3( M) ALP+A%3) 5 $+,%M) 5 *%3( M) 4 *+,%M) NE*T 3 L M - & FOR 3 & TO NC *%3( L) /. 5 $%3( M) 4 /L 1 B 5 *%3( NT) 4 /L
IF L NF T+EN 8 M L6 GOTO && 8 FOR 3 & TO NC A%3) AB/%*F%3) - *%3( NF)) IF A%3)7& E-9 T+EN : NE*T 36 GOTO 9 : NIT NIT 1 &6 PRINT ;NIT;< NIT IF NIT 7 & T+EN & /# 6 /B FOR 3 & TO NC #I%3) # 5 $%3( &)6 BI%3) B 5 *%3( NT)
#EL#%3) %*%3( NF) - *F%3)) 4 %*F%3) 4 #I%3) 1 *%3( NF) 4 BI%3)) #I%3) #I%3) 1 #EL#%3)6 BI%3) BI%3) - #EL#%3)6 /# /# 1 #I%3)6 /B /B 1 BI%3) NE*T 36 # /#6 B /B FOR 3 & TO NC $%3( &) #I%3) 4 #6 *%3( NT) BI%3) 4 B6 NE*T 36 /L R 5 # 1 0 5 F6 /. # 5 %R 1 &) - F 5 %& - 0)6 GOTO 2
9 PRINT NT( NAF( NBF( NIT FOR 3 & TO NT FOR I & TO NC PRINT 3( *%I( 3)( $%I( 3) NE*T I( 3 FOR I & TO NC PRINT I( #I%I)( BI%I) NE*T I PRINT #( B6 EN# & PRINT ;LIMIT ON NUMBER OF ITERATION/ E*CEE#E#; EN#
#ATA 9(&=(=(2(:(8 #ATA >&2(>?(8>@? #ATA >@82(>&:?(8>&& #ATA >=2(>992(& #ATA >&8(>?:@(> #ATA 8?(@?(&(@?(&(&@?(8>2&8?(&
Than! 3ou
