![]() |
|
Главная Промышленная автоматика. обходимо получить значения функций у в нескольких промежуточных точках Хо, хх, Хп, то процедура должна вызываться повторно (с х=Хи, xE=Xk+i для k=0,\,,,,,n-\), при этом последующие-обращения для экономии машинного времени можно осуществить с /г=false. Входными параметрами FKT должны быть х, у, п. Выходной параметр z представляет собой совокупность производных z[k]=fk(x, у[1], у[2], у[п]) для X и фактических у. Процедура сотр входит как нело кальный идентификатор; array Z, у\, у2, уЗ [1:п]; real х\, х2, хЗ, Н; Boolean out; integer k, J; own real s, Ms; procedure RKIST (x, y, h, xe, ye); real x, h, xe; array y, ye; comment: RKIST интегрирует один шаг методом Рунге - Кутта с начальными значениями X, у [k\. Выходными параметрами являются хе = х-\-Н и ye[k], причем последний вектор есть решение в точке хе. Важно: параметры п, FKT, z входят в RKIST как нелокальные объекты; begin array -w[\:n\, а[1:5]; integer k, j; a 1 : = a [2]: = a[5] : = hl2; аЗ\: - а Щ: = к; xe: = x; for k: = \ step 1 until n do ye [k\: = 1ю\Щ: = у[к\; for у: = 1 step 1 until 4 do begin FKT {xe, w, n, z); xe:=x-\-a j\; f or : = 1 s begin ep 1 until n do ye - , y.z\k\l3 end k k\:y[k\+a\j\Xz k\:=ye[k\-\-a[j+\ k\; X end j . • .. , / end RK\ST\ Начало программы: if fi tlien begin Я: = л:£ -x; s: = 0 end else H:=Hs; out: = 1a\se; AA: if (x+2.01 X Я - > 0) = (Я > 0) then begin Hs:=H; out: = true; H: = {xE-x)/2 end if, RKIST {x,y,2xH, x\, y\); BB: RKIST {X, y, H, jc2, у2); RKIST {x2, у2, H, хЪ, уЗ) for k: - l step 1 until n do if comp (yl [k\, уЗ [k], eta) > eps then go to CC comment: comp (a, b, c) - функция, значением которой является абсолютное значение разности мантисс а и Ь, после того как порядки этих величин выравнены до наибольшего порядка параметров а, Ь, с; х: = хЗ\ if oat then go to DD; for k: = \ step 1 until n do y\k\:~y3\k\; if s = 5 then begin s: = 0; Я: = 2Х end ; 5: = 5+1; go to AA; CC: fi: = 0,5Xfi; out: =false; xl: = x2; for ft: = l step 1 until n do y\]k]:=y2\k]; go to BB; , DD: for k: = \ step 1 until n do yE[k]:y3[k] end RK алфавитный указатель определяемых понятии и синтаксических единиц") , Все ссылки даются на иомера разделов. Ссылки разбиты на три группы: опр - ссылка, стоящая за сокращением «опр», отсылает к соответствующему синтаксическому определению; синт -ссылки, стоящие за сокращением «синт», отсылают к вхождению в металингвистическую формулу. Ссылки, перечисленные в группе «опр», не повторяются; текст - ссылки; стоящие за словом «текст», отсылают к определению, данному в тексте. При составлении указателя примеры не принимались во внимание. « I. Указатель основных символов см. плюс - см. минус • - X см. умножение /, -5- см. деление t см. возведение в степень <.<•=.>.>,¥= см. (знак операции отношения) ~, ZJ. V. Л. ) см. (знак логической операции) см. запятая см. десятичная точка ) Ввиду того что лексикографически порядок английских Н русских терминов не совпадает, данный указатель разделен иа две части: I - указатель основных символов и II - указатель металингвистических переменных и терминов, употребляемых в тексте,-* Прим, ред. 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 18 19 20 21 22 0.0016 |