Frans_M_Everaerts_Isotachophoresis_378342.pdf

MATHEMATICAL MODEL FOR ISOTACHOPHORESIS
LIST
0010 'REG IN'
0100
01 10
0120
'REQL' PHLJCSTLI~MI~LI 9 M~HL~I~~HL,M~~LS~HPLJQHL,TITU!~J
KTL I , KMI- I J KI LI J K I ML I 9 KTtn-J KML3 J K I u3 , KIMLQJ H, BH J
CUL I , WUL I, MLI 1 , c ULH, csm, NF.ULU, wii 1 , QC IM , KI IL,
0125 S,(JHI QL,
0130
01 50
01 70
0172
K ULT Hb-il;
' 1VTE:GER ' 4, NL I > I I J, il, NLR , Z I 3 ZY J L t Vt Mi
'HEAL' ' AiXR4Y 'PKLI > MLI JPKD , P I , KL I , KLB, MH, MBH, Mll I , MBR CO : 10 1 ,
CSTn JCST I JCOI ,CBU, NEU9 ,NEU I , PH, C~HI HPI MI 1 3 M3 1 J KTB.
0173 KI~~KIR~KP~~"RJKI~I~KII~KMIJKTICO:~OI~KI~KR~
0180 PKI JKIJPK:3rTUHEO: 10~0: 10 1;
0190
0195
0200
020 1
' INTEGER' 'AR%4Y' NItWi,ZIN,ZFjNCO: 10 I;
s : =READ ;
PHL: =IIEAD;A:=HEAD;CSTLI:=FIEAD;NLI:=READ;MdLI:=HEAD;
ZI : =READ;
0210
0220
'F0H'I:=l'STEP9 I'UNTIL'NLI'DB'
'RF:GIiV' PKI-I C I 1: =READ ; MLI C I 1 : =READ; ' EN!O' ;
0230 MCIHL: =READ; MHL: =READ; NLF3: =!?EAD;MOLS: =READ;
023 1 Z9 : =READ ;
02 40
0250
'FOii'I:=l'STEP'l'UNTIL'NLF3'DB'
'REG IN' PKLB C I 1 :=REAL,; Mi-V C I 1 : =READ; 'EN>' ;
0% 60
0270
0275
0280
0290
0300
'FLlil'I:=l'STEP'I'UNTIL'A'DB'
'BEGIN' NI C I 1 : =READ; MHC I 1 : =READ;M0HC I 1: =IIEAD;MBI C I 1: =REAP;
ZINC 11: =ilEAD;
' FOR ' J: =1 'STEP ' 1 ' UNT IL ' NI C I 1 ' Dl3'
'REGIN'PKI C 1, J 1: =READ; MI C I, J 1 : =READ; 'END' 5
NF3 C I 1 : =READ; M09 C I 1 : =ilEAD;
0305
0310
0320
0330
ZRN C I 1 : =READ;
'FBR * J: =1 'STEP' 1 'UYTIL'N5 C I 1 ' DO '
' BEGIN' PKl3 L: I , J 3 : =REAL); M3 C 1, J 1 : =READ; 'END' J
' END ;
0400'CBMPENT' qalculation first zone:
0410 HPL: =lo T ( -PHL) j UHL: =1 Ot ( -1 4+PHL) ;
OM0 KLI t 0 1 : = 1 ; KTL I : =KMLX : =KI LI : =K I I% I : =O;
0430
0440
0450
Fig.4.13.
'FkJR'I:=l'STEP'l'UNTIL'NLI'DB'
'REGIN'KLI CI I: =KLI [I-1 1*10t( -PKLI CI l)A-IPL;QR:=ZI-I;
KTLI : =KTLI +KLI C I 3; KILI : =KILI +KL I C I l*QH;