I)
•S.
о к
о 3.
im t х і о
1п> і г
>ф 1 “1 >1В Ito
! nt і X I О
Im I Ж
сП
Ж НЯ !О
ffttfi. * поил, flogpirb uІата взам, ^hS.n If at, x &git іїедпцсь и допу
79% /Р-07.М
&ПР..25
Mi
END КРУСЇі ДИМ
1М₽иТ(Т,д,В,а,|),лМ;|||,СМ,»М);
OUT₽UT(»E» Д CM,t>N, O') ;
IF К?»СТ(Т,А,в,С,»'4МЛМ.С*Л*Ъы,М) a^TRUS. ТЦМ
OUTPUT CT» t ’’СИСТЕМА «СТОЙЧММ»)
ELSE
OUTPUT (»T* , *'CNOT&U Н6ИСТОЙЧИ8Л»)І
END ;
END ; » W ■!
3IGMAU231:
С
Иав. І Яупйсь н дата I Взам, нкв.З&ІЙяв.М дубл, | Подпнсьйддта
ур. 26ПРОГРАШ РАСЧЕТА УСТОЙЧИВОСТИ НЕПРЕРЫВНЫХ
СЖЇЕМ РЕГУЛИРОВАНИЯ С ИСПОЛЬЗОВАНИЕМ
ЦВМ М-220, М-222, БЭСМ-6
КРАТКОЕ ОПИСАНИЕ ПРОГРАММЫ
Общая блок-схема програлвш изображена на черт. I.
Алгоритм расчета реализуется в процедуре ЧПОК (A;B,C,N )- Процедури MATP(A,B,C>N))MATPlXINVEPT^EtyA) тпятск вспомогательными для процедуры ЧПОК и введены для удобства програм- гашрования.
КРАТКОЕ ОПИСАНИЕ ПРОЦЕДУР
Процедура ЧПОК (A, В,С, fij).
Блок-схема процедуры ЧПОК изображена на черт. 2. Процедура ЧПОК по приведенным формулам (18) + (20) определяет число положительных корней и при 25-кратнии повторении цикла.
Процедура НА ТВ(А, Вг Г, Н) вычисляет произведение квадратных матриц А и В размерности N*АЇ и результат пересылает в массив С г Допускается обращение вида НАТВ(А>А>А,Н)
Процедура МАЛЕІХІМУЕРТ (N, ЕР$А) выполняет обращение квадратных' матриц размерности Af*W без сохранения исходных матриц. Вычисление производится по стандартной программе обращения квадратных матриц, имеющейся в библиотеке транслятора. Так как в некоторых стандартных программах обращения матрицы для оценки ее вырожденности используется параметр £ , EPS введен в список формальных параметров.
Ирогражаг креше опнеанжй процедур ШЮК, MAT# и MA7PIXINV££T t включає? описание эдентнфякаторов, задащвх систжу (17) согжско таблице. Редульта? счета ~ значение ж$ж- $®иатора процедура функции ЧйЭУ (А, В. С, N ) внводася на печать.
П
УСТОЙЧИВОСТИ £
ШИШ
ЭЫШЫХ СЙСТШ
РЕШИРОЖЛИЯ НА ИЖ К20с «22
В продаже иснользуится следуздио оператор? (обсэд&че-
ввода [РООЪ? ('")];
печати деоятквдцх чисел <• "У/
сбрадешя квадратных ттрвд ypz?£?JF
Еря штьзованик другого типа тракоЕязора оператора доие- ей Смть кзэтенн на соответатвуинда.
Система уравнений, описавающая предед регулирования, прчвбдй^ ©я к фэржі (17).
в следующей Еоряж-з? N, А}В,С.
В коэце о^ета печатается число псмгоаж’ёдьЕмк корней = ftpaa# счета Ажя система двенадцатого порядка <(^W=^) на НЕИ М-222 состав- дзет 10 еек.я
а
£
|
Инв. № подл. |
/Подпись и дата 1 Войн. пне. № |
Инв. № дубл. |
Подпись и дата |
|
7U < |
& /ммІ 1 |
|
|
&шсаш/е аомялента числовой информации д' программе определения норией с нопожи/поніго/й действительной пастью
|
й&ентифига гор |
Описание |
/ЬМЯРНОММ массива |
CoO/nfomcrpM vibstrav&fuv е проекте сяпаяда^й- |
Яриметише |
|
|
»*“ 11 !.■!■.■ * N |
Ьпйлрг |
|
п |
ІЇОДіЖеС/Тіїо дшрферЮЩіНМЬНМХ рр&бквмий Фторово яоррЗно- |
|
|
А |
array |
/?-х |
/.’Л? |
л |
|
|
в . |
array |
/а/4 |
f.M] |
& ■ |
Матриць/ но^рфиааектвІЇ Системі? ^ро^нерий |
|
с |
array / |
|
|
с |
Дх ^Вх / .. ..... . |
|
f |
Сп». 3/ 4. Програма расчета устойчивости непрерывной системы резудиробсния длр PP22Q, М-Я22 BEGIH IRTEBER н;«»0042 (N);PtO*1fK); BEGIN АЛЙЯУ Л, B,C[ 1 :М, 1 '-Wl; ■ PROCEDURE MflTR(«,3,C,N?;¥AUUE N; iMgGSR M) ARRAV Д,в,е; SEGis INTEGER І,3,К;ДЙЯДУ DC 1:», 1:Wl; ' FOR i:=-1STEP ™«22t MPO FOR Эі=і$Т£Р (UNTIL WDO BEGIN Dt 1, 31:®0;FOR K:=1$TEP 1»HL #O0 DEI, 31; = pfl, ЗЗ + АГі, K'jxBfK, aiEHD ; FOR i:=1STEP 1UWTIL »00 FOR 3: = tSTEP (UNTIL «00 C[ 1,93:*0Гі, 31; END M/tTR; PROCEDURE MATRIX!NVERI(N,EPS, Я);IKTEGER W;REAL EPSjARRAy A; BEGIN ARR&y В,СП:К*21;РООЗГ(4/ВЛЄ)ЄЙ » «ли pBOc£QyRg чпок(д,в,с,Ю; wtsGER a; arrav.a, B,c; ееохы ■ - COMMENT ЧПОК = Ч(ИЄЛО) (IQ (ЛОЖИ ТЕЛЬНЫХ) К(ОРНЄЙ) ; REAL SP,СИГМА,EPS; 1WTESER IS9,M; ■" • ** ■** СИГМА:«2,1; M;=Sp:=G; FOR i:=lSTEP tUMTIk woo FOR Sl-ISTiP fv||TU Й00 ОЕЄЇЯ ■’’***’*• 4t*»w^ “» Ч* ’ |<«| -і «>* «>■ *яг «*> -ЛЛ эГт.зі:=агі,зі;егі,зэітвгі,3i;₽ci,»3:=cti,э1;езд ; UMKfl'.FQS I-.sMSTEP 1UMTIL S4D0 FOR OV^tSTEP (UNTIL ЙВ0 “ “*■ ••* 4 4 ™ 4 —• „ 4 444 4 4 4' 4 «• 4 «4 4» 4 44 GE I,33:*DCI,3]-FCl,3);MATRIXIMV£R7(N, EPS, C);MATR(0,Є,О,И); *WR(E, G,&,N);MATR<r, G, F , N); MflTR(P, F , G, N) J MflTR (£, F MRTRtD,£,D,NJiMATRfE^e,P,HJ; FOR V-t=1ST£P -SUWTIL WPO FOR O’.MSTEP (UNTIL WOO |
||
|
/•Додине:, и дата 1 Изам, нив, № і Иив. Лі дубл, 1 Подпись и дата j |
tOflW 1 .1 I. |
||
|
І Низ. }& падл. I |
4 |
** *** w«*** »4 4 44 * 4 *4 v 4» в 44444 -4.4 ЄГІ,31.“Of І,33+НСI,JJ;for I:“1STEP (USTIL ИРО SEOIR F С I, I 3:=Ft 1,1 ]+l IFOR 3-.=13ТЄР 10WTU WOO ВЕ&ІЙ |
|
Пив. № водя. Дддснсь и дата В’эаи. иив. № Иов. № дубл. Подпись и дата 7Ў& I ,, , ■
Стр, 32 I
О П , 31 =G( 1,3] *ЄЙГМА12; EEIЭЗ«СИГМЛ; I
ЄНО ЄНО ; «:=М+1; IF «<ЙОТН£* CQTO ЦИК/ЦМДТЙІХІНУЕЙТ(ГІ,£Р5 >F.) ; !
MHTR(F,E,H,M);fOH I:=1STEP 1UHT1L NOO S₽:’SP+Hf I, 11: чпок: =«-$₽/( 2» saRT(CMr/Hfl-i)l; END 4nOKj POO42(fl,e,c);pi04t(fl,S,C);
F1041 <чпок (л > » , C, W) ); eno ;ehd ;
5. «готова проіржи да расчета устойчивости сжта РЕГУЛИРОВАНИЯ НА цш БЭСй-б
5о Г. В жрограввае йснаоэутаоя слэдузщнэ операторы (обозначена^ „аж дда транслятора система БЭСМ (6) - АЛГОЛ):
ввода [input (■<■)]і
швода чяслйвнх значений [output (--)J
обращение квадратных матрац [mA7PIXI#V£R7 ('•■)]•
Пр® использовано другого тапа транслятора этз оператора долшш ойть изменена на соответствуйте. Система уравненэйе опиемва» процесс регулирования, приводится я фора® (Г7).
Ксезпдект чнеловмх даннкх составляется в сяедугидем порядке г л; A SsCt
В начале работы программы осущестзля.а-тоя печать ^с-годимт данных в аорядае, соответствующем вводу массивов.
В конце счета печатается часло подожтельянх корнеМ.
»4.
ч
я
ф
з:
X
С
й програмна
тр зр расчета устойчивости непрерывной системы регулирования дня БЭСМ-6Б ИБ -.(ЛАТ RI X INVERT , MATRIXPERM;
BEGIN INTEGER NJ INPUT(M)1 OUTPUT(*E’,N, '/'); begin ARRRV Л,8 5CC 1; N. 1-.Ml;
PROCEDURE MRTR(R,0,C,N)JV£LU£ N;INTEG£r ы;ДЯКЛЧ Я,В,С;
BEGIN INTEGER I.S.KJARRAV В[1:И,Ґ.Х]; for i:=iste₽ tuntil mdo for j:=istep і until ndo BEGIN Bl І, 03 :=о; FOR K*.=t$T£p -1UNTIL JJDO ou,.33 :«oc x, 33+rcx tKi *вск,гіє«о
FOR W?2 £°Rї:=15ТЄР fUNTIi, NDg . G С 1,2 1: = О C 1, 31;
ENB mrtr; • * •*
RERL PROCEDURE 4nOK(fl,e,C,»>;INTEGER NjflRRfly fl.B.Cj
BEGIN
COMMENT ЧПОК => Ч(ИСЛО) ЙС(ЛОЖИТЕЛЬНЫХ) К(ОРНЕЙ) ;
АВЯДУ О,KtFtG,Hri:w,1:ыі;
REAL $Р/СИГМЛ,ЕР5;
INTEGER І,Э,М;
є₽$:=»~ю;
сигмл: =2.1;
M'scPteo;
FOr l’*=ifTEP 'Until ndo for з:-і5тео iuntil noo begin Dti, зі : = flt і, ol; eci.oi :=bcі, 33’,f[ і , зі: =ct і, зі ;end ;
UilK/)!FOR l:-fSTE₽ (UNTIL «00 FOR 3;-1SIEP (UNTIL N DO
Gt I, 3 3 : = DtI , 21-FI 1,3 3 ; MATRIX INVERTIN, EPS,G).МЙтйСD,G,D,N); мятя(Е, c, є ,N) ;млтЯ(р, є,р, n) f,g, n);matr(£,f, я, Ю ;
МДТЙ<0,E,P,N);MATR(E,E,FtN);
FOR Ilst-iSTEP TUNTtL N00 FOR ЗізІбТЕР 1UWT1L N£»0 £Clt3i:=DCІ,21+НГ1,OIJFOR IfxISTEP 1U«TSL N00 0EGZN яti,11:=f 11,11+і;for 3; = 1 step iuwtil «об begin Dtl,31 I“Gt 1,31«СИГМАf2;
ЕП,31;»ЕІ 11 01» СИГМА;
&np.S&
END END ;
м<20інея goto цикл;млтліхімуейт(«»£₽$,*);
MATR (F, £, H, N) ; FOR I:=1STE₽ 1UNT1L N&0 SP;^SP+Mll»їїї
4(1 OK : = N-$P/ £ 2 BSQRT (СИГМЯ-1 ));
END ЧПОК; «. W ж
INPUTS,&RC} •;
OUTPUTC'E' , В, c, '/')І ,
OUTPUT(‘T’,,M»',‘S’,ЧП0К(А,8,С,N));
end ;end ;
№(.
ff'noS-.. ffydrnjct> к дата дЗам. ині. ft днд. tf дубл Подпись идагпа 742 МЛ? Г ~ І5IGNAU231:Ин в, J£ лсдл,| Пддаь и дата ІВзам.ин и■ № |Инв. 7Й дубл,| Подп. и дгта
Инв. М падл ", Подпись и дета j Взйм. hhs. М Ила. № дубл. Подпись и дате I : ~
ОСТ 92 0236-74 Сто.37
СОДЕРЖАНИЕ
Расчет ус'гой^вобїк жнШних систем рэдафотня - 2
Paew йщрер&впж
о@зї® 6
ПршюЕеже І. Програк^ расчета yo^c^h^vG-s:*? ©ж$шз с ї^йользаванкет ЦЖ ®«2209 М-222е БЗСМ-6 . 8
'4. їїрюіох®яие 2о Прожраша. расчета ўотойовоста непреркзйих ой-зтем рехужрозагая с использованием
ЦЖ М «2209 Ш222# Б»4 ' 26
дяк. ЧЗЭ9 тмР, 330 э«*.
