Химические приложения топологии и теории графов - Кинг Р.
Скачать (прямая ссылка):
[20] ?4: 'REACTION •,(Ў?),' VIOLATES ASSUMPTION 3*
[21] ?5: Z<-Z , [ 1 ] (' 11 pZ) p 1 •
[22] -*(0,?1)[1+Я2?*-1 + 1]
[23] ?6:->?5 ,pO"-' REACTION ',(Ў!),' #45 NECATIVE OPDER OF KINETICS'
Нахождение следующей комбинации С чисел NR [1], взятых из чисел 1, 2, ...
, NR [2], если дана последняя комбинация CL:
V C-CZ COMBO NR;К
[1] -8*гО=р,С?
[2] -"4M0<ltC?
[3] *0 ,OiW/?[2]
[4] Я-А1Я[2]
[5] -7*im*]21Wl]-W?[2]-/r
[6] -0,O( (*-l)tC?) ,С?Ш + 11+ЛГЯ[2]-Х
[7] -5*i0<#-#-l
[8] CVO
Печать реакций, соответствующих каждому экстремальному току в матрице
токов Е для сети С:
7 Z~E CRNTRX C;V;N;1;M;S [ 1 ] Z* ' '
[2] AM7-l)tp?
[3] W-'itpf
[4] L:Z~Z EXTEND 'CURRENT NUMBER ',wl
[5] 5<-p(/<-(?[ ;?]*0 ) / \ #
[6] Z"-Z EXTEND{t{S,1 )рЕ[У;П ) . ( (5,5)p' ' ) .<T[f/; ]
[7] -*¦?* iMi!•"-? +1
Качественная динамика и устойчивость систем
Ж
Нахождение ребер выпуклого полиэдрического конуса, образованного
пересечением правого нуль-пространства матрицы NU с неотрицательным
ортантом:
7 E-CURRENTS NU \N\R\B\ER;Y ;V\D-U ;R ;X ;C; l ; Z [ 1 ] E*- 0 0 p 0
[2] V*-v/0<(л/OSNU)/NU
[3] NU*-(.V*-V*~v/0>(*/0iNU)SNU)/NU
[4] ¦*0*\ = /pNU+NUlBASIS<S>NU-, ]
[5] D-'l + ltpAW
[6] Af<-l + pW?7
[ 7 J /Г-ФЕ-(А7,С-В<-0)рЕЯ<-1Е-8
[8] Д1:-P6xiO=ltC-C COMBO N,D
[9] -"•Mxiv/A/tfcC.O
[10]
[11] 7?<-7?+ltCxO;=7?<-ltX
[12] A2:?7-W[;"[l]] DOMINO NU [ ; ( pB) p R] - NU [; B]
[13 ] ^ДЗ м*/И> \X^NUI[ ;В-В,Я]+ . "U*-U,l-*/U
[14] R*-(,X*.*NU[ ;C]) ,0
[15] -<(0 = Я-,(С,0)[Я1|.//!]),1)/Д1,Д2
[16] д 3 : - Д1 *w/U<-ER
[17] U + X/U ,0/B~\X*-U>ER)/B '[18] Я-<-Я,[1](Л-(1ЛГ)сВ)х,/у
[19] ¦+Д 5 , /<-0
[20] AH:U*-UiZ
[21] A5:->AMxl(i?-6<Z'-L/l/)x(0*p !/•<-,(ЯД<1|[/)/1 I U ) a 1 0 0 > 1*1*
1
[22] --Д1 ,p?-?,7?\L?7[iB]
[23] Ab:E*-V\E
Решение той же задачи, что и в CURRENTS, для обратимой сети при
использовании стехиометрической матрицы NUFOR для прямых реакций:
7 E*-CURRENTSREV NUFOR
[1] E*-CURRENTS NUFOR,-NUFOR
Удаление реакций вида "=" из сети СО:
7 C*ELIMNU LLRX СО;А
[1] C~C0[i0;]
[2] Д : И-СО[1;]
[3] -* L2* \ * / A t ' ='
[4] ОС,[1] А
[5] Д2 : Дх \ 0 < 11 pC0<- 1 0 *С0
Построение символьной матрицы С расширением массива, вектора или скаляра
А с помощью массива, вектора или скаляра В таким образом, что А находится
выше В:
7 С-*-A EXTEND B\M\N
[l] -*LI* \ 2~ рр А
[ 2 ] -+LA x i 0 <p , A
[3] C-fl [4 ] -+0
396
Б. Кларк
[5] 74:4-(1,(р4))р4-.4
[6] 77:И-*1+р4
[7] -70* \ 0*4f-'ltpB
t8] 4f-*ltpB-,B
[9] 70:-71*\И>ЛГ
1103 4"-((ltp4),#)t4
[11] C-4. [1 ] В
[12] -0
[13] 71:B-((*l+pB) , W) tB
[14] 04. [1] в
Внутреннее действие функции LETTERSTOFORMULAS:
7 ZZ-55 FM CCiAiBiC;D'.E;F;GxHil;JiN;0;PlQiRiS',TlU;V',WiX-,Y-,:
[1] 45-55,' '
[2] ZZ- OOp'*
[3] 71:a45[l;l], • + •••, (1+(2-+/45[1;]=' ') +45[ 1;]),'" '
[4] -71*i0*l+p45- 1 0 + 45
[5] 72:47-U4-U4*' • ) /44-,CCl 1; ] ) с . FF [ ; 1 ]
[6] 442-\ 0
[7] 73:-74*i (47-47i0)>p47
[8] 44 2-44 2, ( ('47- 1 ) 144 ) , • " , ' . 44 [ 47 ] , ' , " '
[93 44-47144
[10] 47-47+47
[11] -73
[12]74s442-442,47/44
[13] 44-'' " .442. " "
[ 14 ] 44-( ¦ 1 + 1 + -4<?v* 1фд0401ф400 .(44*0)/44
[15] 44-((lt44)*',')+44
[16] 44-(*(*lt44)-',')+44
[17] lZ-ZZ.EXTENDt.bA
[18] '*72* iO* 1 + pCO 1 0 iCC
Внутреннее действие функций ATOMMATRIX и FORMULASTO-LETTERS:
7 EX1T~F0RMVLAGVTS\E\F\K\P\PL\PR\S\V
[1] 5-i 0
[2] /Г-" 1 +1 +Кл1ф/С-0,(C7"X,'() ' ),5Х7Г-1
[3] /С-4Гл-'1 + 1ф(С7<4) ,0
[t] 72:5-5, (1+5[1] )t 1 0
[5] -72*\0<pK-l+K
[6] D7[(C7=' •)/грД7-С7-5\С7]-'1'
[7] Д7[(С1*0, ' C,*C7)vC,7<X)/ipC7]-' '
[8] 50 :-*51 * г(+/57-57= ' ( ') =+/PR-DL- ' ) •
[9] 'UNMATCHED PARENTHESES. ALGORITHM
[10] 5Х7Г-1
[11] -0
[12] 51:-54*\~v/B7
[13] P-PR
[14] 5-1
[15] 52:-53*\у/Р7лВ-1фВ
[16] 5-5+1
[17] -52
Качественная, динамика н устойчивость систем
397
[18] F3:F-(F?*F)il
[19] DZ["l+F+\F+2>(F + 2)tOT(i0UF+F+l])xi0?[F+xF- 1]
[20] ¦F0
[21 ] F4 :-*F41 x i л/Д?< ' 0123456789" '
[22] 'FORMULAS HAVE UNEXPECTED SYMBOLS'. ',(.-DLt' 0123456789"')/DL
[23] -*0
[24] F41: DL*-l*t ' 1 ' ,DL
[25] CL*-lCLiX) I CL
[26] X-"l+FM<Mr-(-(X,CI)">t,S<-iO) .1
[27] FI:S*-S, (1 *K[ 1 ] ) t 1 0
[28] ¦¦FI x 10<pX*-l *K
[29] Af-0.5xpCC-(2xA?)iy-5\X,CC
[30] T-{2*N)tV
Замещение молекулярных формул в символьном массиве сети С
соответствующими символами в символьной строке ST:
7 Cl<-ST FORMU LAST О LETTERS C',A',CL\CZ\DL',H\I\M\N',Q\T\V\X\Y\Z%A
[1] X<-{ATOMSYMBOLS,C) ' ,C\-PORMULAS~' '
[2] 0(' '*C)/C<-,C,
t 3 ] ST+ST .И*-' ABCDEFCHIJKLMNOPQRSTUVVXYZ '
[*"] A*' ABCDEFGH 1JKLMN0PQRSTUVVXYZ'
[5] y"-(0. (w-p(-Xe?)/X-(X*' ')/X))pO
[6] Ll:CZ-CZ>Cl+L/(Ci ' + ' ).(Cx'=' ), (Cx'*'))tC
[7] (/"-(-l + fCLoOiDtCi
[8] Z<-C[l*pC?]
[9] 0(l*pCL)*C
[10] CL-{pW)iCL
[11] -"0*i~F0RMULAGUTS
[12] Ct*-Ctxx/,4, (уг •"'• i*
[13] Jf"-(i ,W)p+/(*/( (N.M,2)pCD- 2 1 3 Q(M,N,2)pT)*(N,M)pDL
[14] ( (рУ)р*)=УЫ
[15] -ОШ2.0?Д)[1+(0*1ТрУ)лу/в]
[16] )Ш/:У<-У.[1] И
[17] FORMULAS-FORMULAS EXTEND("1+((CZeST)*CZс'*')i1)1CZ
[18] 0Z.D:C1<-Cl. ( Cl+l/i'*' )tV),5T[/],"
[19] -"il*\0*pC
[20] C1-C1[(C1*' ')/ipCl]
[21] Cl[(Cl='*')/ipCl]-' '
