Научная литература
booksshare.net -> Добавить материал -> Химия -> Кинг Р. -> "Химические приложения топологии и теории графов " -> 152

Химические приложения топологии и теории графов - Кинг Р.

Кинг Р. Химические приложения топологии и теории графов — М.: Мир, 1987. — 560 c.
Скачать (прямая ссылка): himicheskieprilojeniya1987.djvu
Предыдущая << 1 .. 146 147 148 149 150 151 < 152 > 153 154 155 156 157 158 .. 216 >> Следующая

CURRENTS и CORRAL, если не использует^ ся DEC-АПЛ. Функция ALLSS в
PAPERCALC представлена в работе [1]. Эта функция имеет оператор формата,
который приводит к "зависанию" программы * в DEC-АПЛ в случае, когда
предполагается, что вектор длины нуль форматирован, но требующаяся
модификация крайне незначительна. Функция CURRENTS содержит ряд
усовершенствований по сравнению с версией в [1], которая в очень редких
случаях "упускала" экстремальный ток. В ближайшее время будет разработана
намного более быстродействующая версия CURRENTSREV. Алгоритмы,
использующие COMBO, способны обработать все комбинации, и может
потребоваться много времени центрального процессора.
* Незапрограммированный останов выполнения программы, обусловленный
ошибками в машинных инструкциях или системными причинами. - Прим. перев.
392
Б. Кларк
15.1. УНИВЕРСАЛЬНЫЕ ФУНКЦИИ
Повторение полного расчета, описанного в этой статье:
V PAPERCALC;R
[1] R*-' BR~ CHBRiCOOH) 2 С?*4 Н20'
[2] 'BR03" СН2(СООН)2 СЕ*3 И*' РЕ ACT IONCONE R
[3] 0*-TA'BNEW*-C IDE AUDITS TAB
[4] &REACTIONCONETABIE TABNEV
[5] D*-0RGL*-' AY HXPWZEBDC' FORMULASTOLETTERS ORG
[6] O*-F0RM0RG~F0RMULAS
[7] ORG3
[8] Q+0RG3L*-' AXHUVZE' FORMULASTOLETTEPS ORG 3
[9] 'U' OVERALLRX ORG3L
[10] 'XYZ' OVERALLRX ORGL
[11] O-ORGLI*-' XYZ' INTERM EDIATENET ORGL
[12] FORMU LAS*-FO RMORG
[13] FORMULAS LETTERSTOFORMULAS ORGLI
[14] n*-NUORGLI*-STOICH ORGLI
[15] U**KAPPAORGLI*-STKINETICS ORGLI
[16] NU ORGLI REV *-NU ORGLI, - NU ORGLI
[17 ] KAPPAORGLIREV*-KAPPAORGL1, ( NUORGLI *KAPPAORGLI)
[18] ALLTHMS U-NETVORK1
[19] ALLTHMS n*-NETUORK2
[20] ALLTHMS Q*-NETWORK3
[21] ALLTHMS D*-NETUORK4
[22] ОEORGLIREV^CURRENTS NUORGLIREV
[23] EORCLIREV ALLSS NUORGLIREV,KAPPAORGLIREV
[24] EORGLIREV CRNTRX(5p1) ADDREVRX ORGLI
[25] CURRENTS NU5 , - NU5*-ST OICH NETWORK 5
[26] EORGLIREV PROPERNOCONS KAPPAORGLIREV
[27] E*-E0RG LI REV
[28] 0.5 1 1.5 GLOBALNOCONS NUORGLIREV,KAPPAORGLIREV
Нахождение индексов набора линейно-независимых столбцов А:
7 B^BASIS А;5
[1] ->3 , р А*- Ит ( р А ) р ( ~5<-v / ^*рВ<-\0 ) *(*1 А* А ) * + 2
[2] S*- + j'S*S->-A-rf[;B]+.*(S4[:B-B,S\r/S3) + .>'>l
[3] -*2*г1?-9<[/5
Моделирование ИБМ VSAPL функции domino в DEC-АЦЛ:
7 Z~X DOMINO Y
[1] -I*i0="ltpy 12] Z-Ш
[3] -о
[4] L:Z-0p0
Качественная динамика и устойчивость систем
393
15.2. ФУНКЦИИ ДЛЯ СИМВОЛЬНОЙ ОБРАБОТКИ И РАСЧЕТА МАТРИЦЫ ТОКОВ
Добавление обратных реакций к сети в символьный массив СО, как
определяемых логическим вектором REV, где REV[I] = 1 означает включение
реакции, обратной /, и REV[I] = 0 в противном случае:
7 С-ДВУ ADDREVRX C0;N;A;I
[1] С-СО
[2] -*0x\0-N^ + /REV
[3] /I -СО [REV / \ pREV
[*t] Т-1
[5] LI: All-, ]-'l + (A [7;] i ' = ' ) ФА [ '
[6] -LI * \ Ali/-/ +1
[7] C*TIDYNET C.tl] A
Превращение символьного массива молекулярных формул С (по одной формуле в
строке) в числовой массив У с соответствующими строками при использовании
символьного вектора атомных символов X, где У(;, j) дает число появлений
у'-го атомного символа в формуле:
7 У-Х ATOMMATRIX С; А\CD\CL\D\DL ; И;М; N-.Q ;Т
[1] С-С '*С)/С-,С,' = '
[2 ] И-'ABCDE FGHIJKLMNOPQRSTUVVXYZ '
[3] А- ' ABCDEFGHIJKLMNOPQRSTUVVXYZ '
[4] Y-CO.U-pC-Xt-O/X-U*' ')/Х))рО
[5] L1:С0-(~1+(CLcA,'(')i1)tCL-('1+Ci'=')tC
[6] C-((pCD)+l+pCL-(p,CD)4CL)4C
[7] -0*\~FORMULAGUTS
[8] DL~DLxlt,±CD,' 1'
[9] AT-(1,W)p + /(a/((W,M.2)pCL)= 2 1 3 <" (M, A1, 2 ) pT) x (N, M) pDL
[10] -(L4.L6)[l+(0*ltpy)Av/C*A/((ру)рЛ)=у]
[11] L4 : У-У,[1] И
[12] L6:-Llxlo*pC
Нахождение атомных символов, присутствующих в символьном
векторе X:
7 A LPH*-АТ ОМ SYMBOLS X ; А •, А\К\S\B ;7 [ 1 ] И- '
ABCDEFGHIJKLMNOPQRSTUVVXYZ'
[2] A*'ABCDEFGHIJKLMNOPQRSTUVVXYZ '
[3] Х^(.Х(А,А)/Х
[4] + L0*\x/Xc.A
[5] К-'т+Кл1фя~0 , (ХеА) ,1 [ 6] 5-i0
[7] L:5-5,(1*К[1])+ 1 0
[8] -Lxi0<рК-1чХ
[9] Х-((0.5хрХ),2)рХ-,С\Х
[10] В- 2 0 тГ-( ' '
[11] В[(В[;3] = * ' )/\ltpfl;3]-'0'
[12] X-X[B-i,*,B, ' ';]
[13] Х-.(-A/Xr'iex)/Х-Х,[1] • .
[14] ALPH+- ( X* ' >)/Х
[15] -0
[ 16 ] ,=L0 '.ALPH*- (AtX) / А
394
Б. Кларк
Образование сети символьного массива из любых соответствующих
стехиометрических и кинетических матриц при использовании
стехиометрической кинетики:
V Z^NU CHEMISTRY КАРРА ;А;N;R;I;Х;Н;LR;LL;SR;SL;NZL;NZR
[1] Я"-"ИрАЛ/*1<-1
[2] X*-(N, 1 ) р ( -А1~1 fpNV) t 'ABCDEFGHIJKLMNOPQRSTUVVXYZ '
[3] Z<-(0,AlZ7?-WZZ>0)p' '
[4] II :-*Z6*\v/o",K4PP4[;I]
[5] -?4xi0t4--(Н/.KAPPAl ;Л ) + (#"-№/[ ;/]<0)/,Ш;Л
t6] 5Я*- 2 0 "?#-(#,1 )p(AW[ ;l]^NU[\П*1/А , i (0 = p4 )) *KAPPA'
;7]
[7] SL+ 2 0 Ў ??-(#,l)p*4/>P4[;J]
[8] S*[(.?7?=l>/itf:]*-(,I7?=l)i4/V.2)p' '
[9] 5I[ ( ,LL-1 )/\N; ]<-( ,LL-\) / t Л7, 2 > p ' '
[10] SR*-1 * pLR*- ( LRt ' ' )/LR~'ll, (,LR>0)/SR,X,
[11] 5?<-p?I-l?L* ' • )/??"-' 1 * . I. LL>0 )/SL.X, ' ¦ '
[12] -*L2*\NZRlSP
[13] Z"-Z,((ltpZ).[5*-AfZ*))p' 1 [19] NZR<-SR
[15] L2:-*L3*\N2LtSL
[16] Z*-( ((ltpZ) . (SL-NZL) ) p • ').Z
[17] NZL+SL
[18] ? 3 : Z*-Z, [1 ] ({NZL-SL)p ' '),LL,'-',LR,(NZR-SR)p' '
[19] -"(0 .?1 ) [ 1*Я2?"-?*1 ]
Предыдущая << 1 .. 146 147 148 149 150 151 < 152 > 153 154 155 156 157 158 .. 216 >> Следующая

Реклама

c1c0fc952cf0704ad12d6af2ad3bf47e03017fed

Есть, чем поделиться? Отправьте
материал
нам
Авторские права © 2009 BooksShare.
Все права защищены.
Rambler's Top100

c1c0fc952cf0704ad12d6af2ad3bf47e03017fed