книги / Надежность и живучесть систем связи
..pdf231 |
IP ( I "К 1 22 5 11 3 1 1 • 1 ’3 11 |
|
|
1=0 |
|
2 6 2 |
1=1*1 |
, J + i ) 1 2 7 7 , 7 7 7 , 2 6 3 |
|
!F(MuF?P(] |
|
26 3 |
IP ( Г И Р И |
, J * l ) - H Cr>P(i . . I J - H. I .MJ 7. 77, 26 4 , 2 77 |
264DO 265 1 1- 1 ,MNAL
265MA1 1 ( 1 ,1 l ) = o
NCI 1=MCRP( 1 , J ) + 1 КС 1 1=HGRP <I » 0♦11
|
DO 2 6 6 |
I l = Nci 1 . КСГ1 |
|
I>I01=*T ( l , I 1 ) |
|
2 6 6 NM 1 ( 1 , 1 ND 1) s i |
||
|
11=0 |
|
267 |
1 1 s ! 1*1 |
|
|
) Cl = 0 |
|
|
IP ( 1 1- |
I ) 2 6 9 , 2«f), 2 6 ’ |
260 |
! F ( ! 1 - K ) 2 6 7 , 2 7 7 , 2 7 7 |
|
2 |
69 IF ( ii С П p ( J 1 , ] ♦ 1 ) 1 2 7 0 , 2 6 4 , 2 7Й |
|
270 |
l r (МСПР ( 1 V ».1 ♦ l ) -IIGflp ( I 1 , J 1-H IN ) 2 6E i 2 7 1, 2 7 1 |
|
27 1 |
i ЗгНС.ЙР ( I I , . ) ) |
|
27 2 |
13 =1 3 * 1 |
|
|
1N[)1=KT( 11 , 1 3 1 |
|
|
I f l M A U U , I Nil 1 1 - 1 ) 2 7 6 , 2 7 3 , 2 7 6 |
|
273K i = I C l * l
I F ( I C l - M l N ) 2 7 6 , 2 7 4 , 2 7 6
274NC I 1 =ПСПР I 1 1 , J ) * l KC1 1=r<G«P ( I l , 3*1 i
2 7 5 |
DO 27 5 I 3 = » с 1 ! i К С ! 1 |
|
fc.T ( 1 1 , |
13)=C |
|
|
I1CRP(! |
1, J * l l = 0 |
|
12 =1 2 * 1 |
|
|
К Т ( I 2 , K V K T ) = J 1 |
|
27 6 |
GO TO |
260 |
! F<! 3 - MGRP<I 1 , J M ) ) 2 7 2 » ? < > 9 I 7.6S |
||
2 77 |
1 F ( J - K ) 2 6 2 , 2 7 « , 2 . 7 « |
|
270 |
] F ( M I M - M A / ) 2 6 I , 2 7 9 * 2 7 9 |
|
279N J ( 2 I J * 1 > = I 2
I F {I 2 ) 2 4 0 , 2 4 fl, 2 32
23 2 |
K=K- I 2 |
1321 |
11 = 0 |
I l s I l M |
|
|
i F ( к 1 ( I 1 i KVKTl - Ki l 3 ? ? , l 3 2 2 » ? 3 9 |
-1322 |
|
2 , 3 |
IF I n GPP I 1 , J * i )1 2 3 4 , 2 3 3 , ?34 |
234J 2 = K T ( I 1 ,KVKT> 13=f l Cf i P( J 2>J ) J l r M C R P ( 1 , J )
I F ( J 1- НСH P ( I i 1 * 1 ) 1 2 3 6 , 2 3 6 , 2 3 7
2 3 6 1 3 =1 3 * 1
K T [ J 2 , I 3 ) = K T < 1 , П ) GO TO 235
237flGRP ( J 2 , . l * 11 = 13 IICI 1 =MGRP П , Л ♦!
КС I 1 =NGRP( I , J+ 1 >
DO 2 3fi J 1 = NCH ,KCI 1
230 КТ(I , J 11=0
H C R P I ! , J * l l = f l „ л <39 IF ( l 1 - 1 2 ) 1321*24- С«2 ^0
24 0 J = J * 1
259 1F t L**LP) 1в? I 9 ? 9 | 9 ? 9
1870*2
188I F 'JH PUZ CL»J) ) 1B9 »192 »192
18912 *H PU ZtL *0 )* l I*HS6 <12)ч 1
KCI1*KPT*1
DO 190 I M I KCII
198 hPT <1 1 ) =HPT 11 1 * 1 1 KCJ1*HKUZ*2.
|
DO 191 I 1«12 .КС 1 1 |
191 r t S B ( I H = H 3 B ( I l ) - l |
|
192 |
I F ( J « K P U Z ) 1 8 8 * 1 9 2 , 1 9 2 |
l F ( h P U Z ( L i l ) - M p U Z ( L * l i l ) H 9 3 » l > l »193 |
|
193 |
NCI 1*MSB(MKUZM> |
' |
KCj 1*NSB(MKUZ +2) |
|
DO 194 : 1 l - N c l 1 »KCI1 |
194n P T ( l l ) « 0
0*nSB(MKUZM)
I N D * h P U Z U M i U JU M S B l( I N D )
195 MPT t " M P C J l ,1 )
IP ( J 1 ” MSB H I N 0 * U * 1 ) 196» 197 I 197
196J 1 « J 1 * 1 J * J * 1
CO TO 195
197NSB(HKUZ*2)*J+1
CO TO 101
1 FOR NAT(261 3)
2FORMAT(IX,24 15)
3FORMAT( l X t 1 2 F l 0 i 6 )
4FORMAT( 1 6 P5•2>
8FORMAT (20F4,-2)
9F0RMAT(1XI 2BF6,2 )
11FORMAT(201 4)
12FORMAT ( IX I 3 0 14-)
16 |
F O R M A T I I X I * J * , | I 2 , , HJ ( 1 » U S , » I 3 I * Необходимо у в е л и ч и т ь KVM G R P '1 |
|||
31 |
FORMAT( 4 0 1 2 ) |
|
|
|
50 |
FORMAT(2Xi*B |
HP |
HE T |
l , 2 X | 2 0 t 5 ) |
51 |
FORMAT 12X• 4в |
КТ |
МаЛО |
СТРОК ДЛЯ П А Р И Л И ) |
52 |
FORMAT( 2 X• *В |
КТ |
1ЦЛ0 |
£Т Оу)ШВ |
999 |
CONTINUE |
|
|
|
|
J F ( J -к' /мСПР» 1402 I i 4 p 1 , 2 5 9 |
|
Н01 |
p Rj Nf |
1 6 > J | N J t i i l ) |
|
2, (?fir.RP(M,.)i) , I lel.fcput) | J1= I iKNJ) |
|
1402 |
PEJlJ>sl.0 |
|
IF ( 1 С - Ю 2 4 1 , 2 4 5 . 2 4 1
241N J ( 1 . J ) = 1
NCI l = M G 4 P ( l , J - l ) * i
K C I 1 SMCRP( 1, J )
00 242 I l s H c i l . K C j l I N p l = k T ( 1 . I 1 )
242P F j ( J ) s p g J ( j j * v P ( i N D l l
243I F ( N J ( l i J - l ) - NJ < I , J J - N J ( i i O l - 1 ) 2 4 4 . 2 4 ^ , 2 4 4
244H J [ 1 , J ) = N J ( 1 , J ) + l GO TO 20 1 ■
2451=0
PE.l ( J) s i . 0
2461 = !♦ 1 PRs 1 . J!
I I s MG R p i ] , J - 1 1
H & l I1 = ! 1 M
I ND1 = K T ( I . 1 1 )
PRspR *VP ( 1 NO l )
IF I I 1 - nGRp ( I , J ) ) 1 4 6 1 . ] 4 6 2 1 1462
1 4 6 2 P 6 j ( J ) s p E J ( J j * i l . g - p R ) I F ( 1 - 1 0 ) 2 4 6 , 2 4 7 . 2 4 7
247P E J ( J ) S I . 0 - P EJ ( J 1
248P H J ( J - 1 ) = 1 , 0
I NO 1 =NJ t l . J - i )
IF | . J - 2 ) 2 4 9 , 2 5 0 , 2 4 9
24 9 X2S M GRP( 1 M 0 i , J - 2 )♦1 I J S M CRP( 1 N O i , J - 1)
CO TO 251
250I 2 s 2
I J . s nCRP(1 NO 1 , t )
251 |
00 |
2 5 2 |
1 1=12, 1 |
3 |
|
I Nf)2 SK T ( I N D l , t |
1 ) . |
||
252P H J < J - l ) s P H J ( J ' - t ) « V p ( l N 9 2 I I F l l J - l ) 1 5 2 0 , 1 5 2 1 , 1 5 2 0
152 0 |
I J = 1 |
|
|
CO TO |
1522 |
1521 |
PHJ ( J - l ) =f >H- ’ ( J - 1 >* <t l . ^ " P E ' J ( J I 1 / ( 1 » СГ-РЕ J 1 i 11 |
|
152 2 |
P £ J ( J - l l * P E ' M J e l ) * p HJ<j 4 l ) * P E J l J " l ) * P H J | 0 « l ) |
|
|
N J | 1 »J ) = 0 |
|
|
N J ( 2 i J ) = 0 |
|
|
P H J ( J ) = l . 0 |
|
|
P E J ( J I |
* 1 . 0 |
|
! N 0 1 = N O ( 1 , J > - 1 |
|
|
DO 254 |
I = t , I NO 1 |
|
кт C1 , KVKT) =0 |
|
|
NCI 1 * MCRP I I »J - 1 * * 1 |
|
|
K C I 1 *MCRP I I , J ) |
|
|
DO 2 5 3 |
I l = NcI 1 . KCI 1 |
25 3 К Т ( I , I 1 ) =0
254HGRPU * J ) = 0
IF | J « 2 ) 2 5 5 , 2 5 6 . 2 5 5
255J = J - 1
256I F ( N J ( l , 1 ) - KP UT l 2 5 7 , 2 5 8 | 2 5 в
2 5 7 |
PRI NT |
3 . P E J I Л |
* P HJ I Л |
|
•CO TO |
24 4 |
|
8 5 8 |
CONTINUE |
. , |
|
|
3 , P E J ( 1 ) , P H J ( l I |
||
193
11.4.Программа введения дополнительных линий связи
иповышения живучести узлов коммутации
Программа предназначена для введения дополнительных линий связи и определения необходимой живучести транзитных узлов с целью достижения заданного уровня живучести сети связи.
Объем программы составляет 656 перфокарт. Исходные дан ные:
а) переменные KPT, MKUZ, KPUZ, ККТ, N, KPRAL, IZ, LO, KSB, KSB1, КМР, LP, KMZ, KDMP,
№ К , IRAS1, KMPR, PZ, VTR.
б) массивы MPUZ, МК, МР, MSB1, MPT, MSB, VP.
Для каждой пары оконечных узлов на печать, кроме результа тов программы POISK, выводятся следующие результаты:
1.Множество (массив) простых сечений двухполюсной сети.
2.Вероятность исправности двухполюсной сети.
3.Рассчитанная вероятность исправности и номер транзитно го узла, живучесть которого предлагается повысить.
4.Номера узлов, между которыми предлагается ввести ребра.
Для организации возможности работы по вариантам в конце работы программы предусмотрена выдача на печать массивов
MPUZ, МР, MSB1, MPT, MSB, VP.
В случаях некорректности исходных данных, сбоев в работе внешних устройств ЭВМ, недостаточности размеров массивов про грамма выдает соответствующее диагностическое сообщение.
Для нормальной работы программы требуется 170 кбайт опе ративной памяти, в том числе: 69 кбайт для объектного модуля программы; 30 кбайт для исходных данных; 64 кбайт для проме жуточных и окончательных результатов.
COMMON КТ »75Я* I ' i ) ,M C R p |7 5 B i П |
INOT*Hp(1 1 , 1 1 -HPU2 (L i J) |
DI MENS I OH M BU Z (1 5 fl, 5 > , |
IF ( INOTI 1 0 6 , 1 0 5 , 106 |
* H S B H 9 5 0 ) ,106 |
IF ( 1 1 - K C l t >10?» 107*101 |
4 S r T« 5 ! V |
»,lDf'1P , 2 0 , 3 ) |
, VP 11654> |
||
IKPRALI }7^Г 0 * ^ |
i c |
* KK T »N , |
||
1KPRAL i IZ * L 3 , KSВ i KS 6 1 1 к MP f |
||||
|
|
,kHK; lf>AS;*«NpR |
||
|
2 »KPT »nKyZ»KPUZ*KKTiN, |
|||
lRPRAl-, l Z * L 0 , K ? B , K S 3 l , K f i p , |
||||
2LP »KMZ ,Ц 0М Р,цМ кiIRAS 1 ,KMPR |
||||
RSAO |
« » P Z »V TR |
|
|
|
3 , p Z , v тЯ |
|
|
||
MNAI.SM KUZ *KMP |
|
|
||
NM1=N-1 |
|
|
|
|
KUZR =MKl)Z*KhPR |
|
|
||
READ |
U , |
< I M P U Z H |
, J I |
, |
1 J = 1 , K P U Z ) , l = l » L P ) |
|
|||
2 , ( ( MPUZ ( I , J I , |
||||
l O = l , K P U Z ) , 1 = 1 , L P ) |
|
|||
READ |
1 . ( (Ч К 1 1 » 0 > »J * 1 »2 ) , |
|||
l t = l i K M K ) |
|
|
|
|
1 2 . I I M K I I »J ) • J = 1 , 2 ) • |
||||
1I=1|KMK) |
|
|
|
|
HEAD |
3 1 1 (MP ( I I 1) ».! = l »KMP ) |
|||
3 2 » (MP I I , 1) , 1 = 1 ,KMP) |
||||
RE A® l b I M S B l U l »I = l » K S e l l |
||||
1 2 | (MSB1 | I ) , I = b K $ B l ) |
||||
REA O 3 1 , |
i H P T d ) |
, 1 * 1 , KPT) |
||
32 » 1 MPT П |
) »I s 1 1к Р Т 1 |
|||
REA ° 1 1 , |
) • I в 1 » KSB > |
|||
1 2i 1MSBI1 > i l = l»KSB> |
||||
READ |
6 , <Vp(I ) • I ■ 1 • nN AL ) |
|||
9 , |
I V P I I ) , I = 1 * nN д 1 ) |
|||
8FORMAT( 20F A,2 )
9F O R M A T ! i x » 2 e F 6 . 2)
>99 |
L =L 0 |
|
|
|
L =L♦ 1 |
|
|
|
IP =0 |
|
|
|
IP 1=0 |
I«1,K0MP |
|
|
00 |
1640 |
|
1600 |
00 |
1 6 4 0 |
J * l t 3 |
н О м Р Ч , J ) = 0 |
|||
|
1 |
3e 0 |
|
‘599 |
OO |
111 |
I1= 1iKKT |
|
00 |
111 |
J 1 * 1 * N |
111KT1 1 1» J l ) * 0
IABJ
|
J = 2 |
lj02 |
J = J * 1 |
|
l F | M P U Z a » 0 > ) 1 0 3 , 1 1 0 , 1 0 3 |
1«3 |
I 2 * M P 0 Z ( L , J ) ♦! |
|
I=MSB(I2) |
|
1 1sKPT |
|
I l e i 1—1 |
|
ИР Т ( 1 1 * И * ” Р Т П П |
k |
I F ( I 1 * I > 9 # 1 , 9 0 1 * 10* |
*01 |
INO = HPUZ I U , 2 ) |
|
J 1* M50 1 ( INO) «.1 |
|
K C I 1 * H S B I U N 0 * 1 > - 1 |
|
NCI 1*1 l |
105 |
I I . I 1 M |
U 7l;!}?T
CO TO 259
100ЦР T ( 11 =MKUZ* I 1 Kc т 1 BMIMI2*9
l fl9 |
DO |
109 I l =I2,K cM |
nS 0 (1 11 « MSВ f l 1) ♦ 1 |
||
110 |
IF ( JrKPUZ) 1^)2» 1 1 0 , 110 |
|
1=1 |
||
|
J*1 |
|
|
K T ( b J ) = M P U Z { L , l ) |
|
|
00 |
112 I l s b u H A L . |
|
MAI 1 C l , 1 11*0 |
|
112 |
ЦТ I I I 1*0 |
|
113 |
1 |
AeMKUZ*1 |
K= M S B M A J - I |
||
11 4 |
K =K*1 |
|
115J l s l
116J 1 « J 1♦ 1
I F ( M P T ( K ) - K T ( I . J l l 1 1 1 8 , l 1 7 , н а
117 IF (K-MSB П А + l b l ) 1 1 4 , 1 2 9 , 1 2 9
118IF I J 1 - J 1 1 1 6 1 1 19, 1 19
119J * J * 1
КТ( I , J ) eMP T I К >
ИТII A ls K
1 F ( K M I , J ) F MKUZH?0I 1?01 123
120 IF < J- K P R A U I 2 t , l 2 l » l 2 2
121lA=KT( I , J l
INOT=MS 0(tA*l1-MSB( I A1
|
IF 11 NOT» И З , 1 2 9 » Ц З |
||
122 |
КТ(I • J 1=0 |
||
|
J = J - 1 |
|
|
|
CO |
TO |
127 |
123 n C R P d |
, l l = J |
||
|
КС I lsMCRP11 , 1 > • I |
||
|
00 |
124 |
1 1 =2 , КСИ |
|
1 NO=KT(1 ,1 1 1 |
||
12 4 |
MA1 1 11, 1 NO 1 = 1 |
||
|
I F ( I - K K T ) U 2 5 , 1 1 2 4 , 1 1 2 4 |
||
1124 |
5 l , M P 0 Z I L , 1 ) , MPUZtL 121 |
||
|
CO |
TO |
500 |
1125 |
1*1*1 |
|
|
|
KCI l =J - 2 |
||
|
1И18 J - 1 |
||
|
00 |
125 |
I 1 = 1 , KCI 1 |
125K T ( I , m = k T ( I M l , I l ) J =J - 2
GO TO 1129
126IAcKT(I ,J •
127IN 0 T * M T ( U » - H SB M A ♦ 1 > ♦ *
I F ( I NOT 1 1 2 8 , 1 2 9 * 1 2 9
126 K=MT( IA>♦1 CO TO 115
129I F ( J - 1 M 3 0 , 1 3 Ы Э 0
130K T ( I , J » = 0 j a j - i
1129 IF ( J - 1 M 2 6 , U 3 f , 126 1130 lAsNKUZ+1
INOT=ttT (IA )* nS B( tlK 0Z +2 b l IF I I N 0 T 1 1 2 8 , 1 3 l , Ш
195
131 |
к т ( 1 , . ) ) = 0 |
|
5 0 0 |
I = I M |
|
IA=J |
|
|
|
IF ( ! ) |
1 1 3 1 1 1 1 3 1 1 1 132 |
1131 |
2 . HP UZ( L, 1) , MPU7 (L >2} 1 1 |
|
|
SO TO |
259 |
1132 |
1=0 |
|
1331=1+1
J= 0
134J = J +2
1F C J - 2 ) 1 3 * , 1 3 5 , 1 3 6
135I N D = K T ( i i J - l ) 1N01CKTI I »J)
11 sHSB l ( INO) - 1
|
CO TO 130 |
|
136 |
l F ( K T ( ! t J * n * K T ( l t J > » 1 3 5 »1 3 7>t37 |
|
137 I NO=KT( I . J ) |
||
|
I N 0 1 = K T ( I . J - 1 > |
|
|
I l s n S e i |
(. lNDi- Г |
130 1 1 = 1 1 + 1 |
|
|
139 |
IF «HP С1 1 »t 1ND l ) 1 3 6 1 1 3 9 1 130 |
|
12sriCRP ( I *1) ♦ l |
||
140 |
12=12 - 1 |
|
|
КТ( I t ! 2 |
+ 1 ) = K T ( I »1 2 ) |
902 |
I F ( l 2 ' J ) - 9 0 2 , 9 0 2 . 140 |
|
MCRP( 1 • 1 ) = MC R P ( I i l ! + l |
||
|
КТ С1 | J ) = M« U2 + I l |
|
141 |
I F ( J + 3 - f f C p P ( I , l ) ) l 3 4 , l 3 4 l l 4 l |
|
I F ( I - U ) |
1 3 3 , 1 4 2 . 142 |
|
142 |
J = 0 |
|
143 |
DO 144 |
I =l i hNAL |
f l A l l ( 2 , 1 ) = 0
144ЦТ( 11- 0 J = J * 1
П Ч И А П И . Л - П 1 4 6 . 1 4 5 . H 6
H 5 I F ( h S B ( J + l ) “ M S 0 ( J ) - I Z I 1 4 6 . 1 4 6 j l 4 7
146I F ( J-MKUZ) 1 4 3 . 1 0 6 , 1 0 6
147K- 0 J 2 = 0
140K=K*1 J 1 = 1
140J l r J l + i
I F ( K T t K . J l ) - J ) 1 5 0 . 9 5 6 . 1 5 0
150I F ( J 1 +2 F NCRP ( K. 1) ) 1 4 9 . 1 5 Ы 5 1
151I F ( K - l A ) l 4 0 . l 5 2 . 1 5 2
152 I F ( n M l < 2 . J ) - l Z * > 1 5 3 , 1 5 3 . 9 5 9
153DO 154 J 1 * J , MKUZ
154HAl 1 ( 2 , J 1 » = 0
00 |
155 |
J l * 1 . J 2 |
|
155 KT( 3 1 |
. NM1) =0 |
||
CO |
TO |
|
146 |
956J l * J l » l IMD=KT(K, J1)
„ |
IF" (HAl 112* INO) J 9 5 7 . 9 5 7 . 9 5 9 |
|
957 |
n A l l ( 2 , J ) = M A l U 2 , J ) |
+ l |
550 |
M A U < 2 , I N D ) = n A l l l 2 > I N D ) + l |
|
|
J 2 = J 2 + 1 |
- |
|
KT ( J 2 . N H 1 ) S K |
|
|
CO TO 151 |
|
959 |
12=0 |
|
1 5 6 |
l - 0 |
|
|
1C=99999 |
|
157 |
1=1+1 |
|
IF' JKT* I . WHI M 150 . 1 6 0 » 150 150 I ND= KT ( I , NN1 |
I F ( H CRP( | ND. l » - f C) 1 5 9 , l 6 e . l6 (l
159IC= nGRp( INO, i )
К=КТП iNMl)
160IF ( I * J 21 15 7 , 1 6 1 , 161
1611=1
162 1 = 1 + 1
I F ( КТ СКi I » - J ) 1 6 2 , 1 6 3 . 1 6 2
1631 2 s ! 2 + l
H T(I2)= KT (K ,J + 1 )
1 = 0
164I = | + l
IND.=KT{!,Nm>
964 |
IF ( INO)1 6 6 . 1 6 6 , 9 6 4 |
11=1 |
|
165 |
11=11+1 |
|
INOT= KT( INO, m - п т ( 12) |
|
I F ( INDT)1 6 7 , 9 6 5 »167 |
965 |
IF (KT UNO, 1 1- 1 ) - J ) 16 7 , 1 6 6 , 1 6 7 |
166 |
KT( T, NR 1 ) = 0 |
|
CO TO 160 |
,167 |
INDT = I l +2- MCRP ( INR , J ) |
|
I F H N O T M 0 5 , 1 6 8 , 1 6 0 |
168I F M - J 2 J 1 6 4 , 1 6 9 , 1 6 9
169IF ( 12 - 1ZI 1 5 6 , 170» 1 7 ej
1701 = 0
JAS 0
171I = l + l
*F t КТ * I ,NHU H 7 2 . 174, 172
172K=KT(1i NMl ) J As J A+1
К C J 1=MCRP(K, 1 )
|
0 0 |
173 |
1 1=1 , KCM |
|
173 K T ( K « ! l ) = 0 |
|
|||
174 |
MCR P f К i 1 ) = 0 |
|
||
I F ( I - J 2 ) 1 7 1 , 1 7 5 , 1 7 5 |
|
|||
175 |
1=0 |
|
|
|
176 I = l + l |
|
|
||
.177 |
IF(MCRP( I , 1 » ) 1 7 7 , «0 0 , 177 |
|||
I F ( I - U ) 1 7 6 , i 7 0 , i 7 e ® |
1 |
|||
170 |
DO |
179 |
J 1= 1, 1 a |
|
179 K T ( !l ,N fl l >*0 |
|
|||
|
I A=I A- J A . |
|
||
|
CO |
TO |
146 |
|
. 1 0 0 K= I - 1 |
|
|
||
181 |
К=к+1 |
|
|
|
|
I F ( n C R p t K . 1 ) ) 1 8 3 , 1 0 2 , 1 8 3 |
|||
1 0 2 |
l F ( к - 1 A) 1 0 1 , 1 7 0 , 1 7 0 |
|
||
103 |
KCI1=MCRP(K, 1 ) |
|
||
|
DO |
104 |
11 = 1 , KCI1 |
|
104 |
K T ( I , I 1 ) = K T ( K , I 1 ) |
|
||
КТ( К• I U = 0 |
|
|||
|
MCRP ( I , 1 ) =MCRP( X , , ) |
|
||
|
HCRP( K, 1 ) =0 |
|
||
|
CO |
TO |
177 |
|
106 |
CONTINUE |
|
||
25 9 I F ( L - L P ) 1 0 7 , 1 2 5 9 , t 2 5 9 |
|
|||
107 |
J = 2 |
|
|
|
100 J = J +1 |
|
|
||
109 |
IF (MPl/Z ( L , J J J 109 , 1 9 2 , 1 0 9 |
|||
1 2 =n P UZ ( L , J ) + 1 |
4 1 0 |
|||
, |
l=MSfl(12)-1 |
|
||
196
|
КС11=КРТ-1 |
„ . |
|
|
со! то |
6 H |
|
|
|||
|
00 |
190 |
|
I 1 = I t КС1 1 |
|
611 |
K = H C R P (I,U |
|
|||
190 |
fiP T ( M ) = HPT H U H |
|
|
if»=K-1 |
|
|
|||||
|
KCtl= M*UZ*2 |
|
|
|
J l s K T ( I , К I |
|
|
||||
|
00 |
191 |
|
1 1 * 1 2 , K c U |
|
|
I l c K T { 1 f 1RI |
|
|||
191 |
MS B C I )=MS0 ( I |
l ) - l |
|
|
J2s«T( I i 2' |
|
|
||||
|
I F ( J - K P U Z 1 1 8 8 » 1 9 2 , 1 9 2 |
|
I F « M A l i ( l i J 2 ) - l l 6 i 2 | 6 t 3 , 6 1 2 |
||||||||
192 |
INOTSMPUZ (L , 1) ^tiPyZ J L + 1 1 1 1 |
612 |
J = J * 1 |
|
|
|
|||||
|
IF ( I N D T ) 1 9 3 1 1 2 5 9 » 193 |
|
HZ( J , 1 ] s J 2 |
|
|
||||||
193 |
NCI1= MSB1MKUZ♦ 1 1 |
|
|
I N 0 * K T I l , 3 ) |
|
||||||
|
KCI 1*HSB(MKUZ*2) |
|
|
IF I ПТ UNO )•> 1 )6 02 16641662 |
|||||||
|
00 |
1 9 4 |
I l = N C l l * K C U |
602 |
ЦТ 11 NO) a 1 |
|
|
||||
1 9 4 |
H P T M l I s I |
|
|
|
HZ( J • 2 ) aK T( [ | 3) |
|
|||||
|
J*H$B<HKUZ*1) |
|
|
604 |
H A l l ( l t J 2 ) « l |
. . > л |
|||||
|
INOSMPUZ ( L * l , n |
|
6 1 3 |
I F ( M A 1 H 2 , |
J l ) - l » 6 6 4 . , 0 0 0 , 6 0 4 |
||||||
|
J l s H S S l l l N O l |
|
|
664 |
I L a t l M |
|
|
||||
195 |
N P K J l s u P l Л , |
11 |
|
|
H Z ( l L , I C ) s J i |
|
|||||
|
I F ( J 1 - M S B 1 ( 1 N 0 + 1 U 1 ) 1 9 6 | 1 9 7 , 1 9 7 |
|
I F < M T ( I l ) - 1 1 6 0 3 i 6 0 5 , 6 e 3 |
||||||||
196 |
J l = J t * l |
|
|
|
603 |
HT( 1 1 ) s i |
|
|
|||
|
J = J * 1 |
|
|
|
|
|
ц2 ( 1 L , I C - 1) = 1 1 |
|
|||
|
CO |
TO |
195 |
|
|
'6 05 |
MA l J ( 2 1 J 1) * 1 |
|
|||
197 |
MSB ( MKUZ+2) a J * J |
|
|
IFUL-»K|lZ) 6 0 7 i 6 6 3 , 6 6 3 |
|||||||
1259 |
IF ( I A - l ) 99 9 , 12601 1260 |
663 |
P « I N T |
6 11HPUZ <LI 1 ) IMPUZ( L I 2) |
|||||||
1260 |
CONTINUE |
|
, HP UZ(li 2),T A |
6 14 |
CO TO |
999* |
|
|
|||
|
7 1 1 MPUZ CL * l) |
IF ( I C* 4) 6 7 4 , 6 1 5 j 6 1 5 |
|
||||||||
71 |
FORMAT ( 1 X I 'ОКОНЧЕН |
БЛОК ' i |
6 7 4 |
I G r I C - 2 |
|
|
|||||
|
1 'ПОИСКА ПУТЕЙ |
ДЛЯ |
П A PЫ ' i 2 1 5 » |
|
GO TO |
662 |
|
|
|||
|
12X , 'КОЛИЧЕСТВО ПУТЕЙ P ABHO 16) (, X5 |
KCI= IC - 1 |
|
|
|||||||
|
00 |
6 00 |
|
l = l,KflZ |
|
|
DO 616 |
I *2 • КС I |
|
||
|
00 6 0 0 J * l i N |
|
|
|
I N O = H Z ( i , t ) |
|
|||||
60 0 |
HZ( I 1 J ) s 0 |
|
|
616 |
HA 1 1 ( 1 1 1 NO) a 1 |
|
|||||
|
00 |
601 |
|
J * 1 i HNAU |
|
|
1ND*HZ(1I 3) |
|
|||
|
HT ( J ) = 0 |
|
|
|
|
МД 1 1 (2 ,1 NO)* 1 |
|
||||
|
DO |
601 |
|
1 * 1 , 2 |
|
|
|
I C s I C - 2 |
|
|
|
601 |
MA 11 (I |
, J ) = 0 |
|
|
|
1= 0 |
|
|
|
||
|
1=0 |
|
|
|
|
|
|
|
|
||
|
|
|
|
|
617 |
1*1*1 |
|
|
|
||
|
MI N= 100 |
|
|
|
|
I F ( HZ ( I , 2 П 6 1 0 . 6 1 9 » 6 1 в |
|||||
602 |
1* 1* 1 |
|
<1 1 1 ) - M I N ) 60 3 16 0 4 • 6 0 4 |
610 |
|N D = H Z (I,2 ) |
|
|
||||
|
I F ( M C R P |
|
HAl 1 • 1» INO)a 1 |
|
|||||||
6 0 3 |
H IN = H C R P ( I I I ) |
|
|
|
HA 11 I 2 1 1 NO) a 1 |
|
|||||
604 |
I U s l |
|
|
|
_ |
|
CO TO |
617 - |
|
|
|
IF(IMA)602,605i605 |
619 |
1=2 |
|
|
|
||||||
60 5 |
INO = MCRPUU, l) |
|
|
|
|
||||||
|
620 |
1=1*1 |
|
|
|
||||||
|
00 |
60 6 |
|
I s 2 • I NO |
|
621 |
ILa0 |
|
|
|
|
606 H Z ( l , I - l ) = K T ( I U * I ) |
|
I l r I L M |
|
|
|||||||
|
I C z M C R P |
( I U . D - l |
|
|
J=1 |
|
|
|
|||
|
I N O * N Z ( t i 1) |
|
|
|
I F ( I L - l U ) 6 2 2 t 6 5 f * 6 2 2 |
||||||
|
H A 1 1 I 1 |I N D ) = 1 |
|
|
622 |
IF ( HZ ( 1 1 1) "HKl*ZI 6 5 8 , 6 5 0 1 6 2 3 |
||||||
|
INQB HZ( 1 , IC) |
|
|
623 |
J =MCR P(IL . l ) - l |
|
|||||
|
HA 1 1 ( 2 1 |
I NO) a 1 |
|
|
624 |
J * J - 2 |
, |
, |
|
||
|
IN0*H2 11 1 2 ) |
|
|
|
INO= KT(lL-,J) |
|
|||||
|
H T < I N D ) = 1 |
|
|
|
IF (MAI К 2 » INO» - 1 ) 6 6 5 , 6 2 5 , 6 6 3 |
||||||
|
I N 0 = M Z ( l i I C - 1 ) |
|
|
665 |
I F ( J - 4 ) 6 5 0 , 6 5 0 , 6 2 4 |
|
|||||
|
Ц Т ( I NO)* 1 |
|
|
625 |
J.l= 1 |
|
|
|
|||
/ |
1 * 0 |
|
|
|
|
626 |
K*KT ( IL 1 J * J 1) |
|
|||
|
J S 1 |
|
|
|
|
|
l F ( H A U ( 2 , K ) - t > 6 2 7 » 6 5 0 , 6 2 T |
||||
6 0 7 |
I L s l |
|
|
|
|
627 |
I F l H A l K 1 » K ) M > 6 2 9 I |
626».6 2* |
|||
I я i ♦ ,1 |
|
|
|
|
626 |
J l » J l * 2 ’ |
|
|
|||
|
l F ( I - I U ) 6 U , 6 0 6 l 6 l l |
|
629 |
CO TO |
626 |
|
|
||||
■608 |
I F |
f T - ! |
A ) 6 0 7 » 6 0 9 * 6 0 9 |
l C * 0 |
|
|
|
||||
609 |
00 |
6 1 0 |
|
I K 1 1 2 |
|
|
|
|
|
|
|
|
00 |
610 |
|
JalitlNAU |
|
|
!PA»*e |
|
|
||
6 1 0 H A l l | l i J l * i |
|
. 6 3 0 I C s t C t I |
|
|
|||||||
|
|
|
|
|
|
|
|||||
197
£31 |
17=0 |
12=12+1 |
|
|
IF (H2 « 1 2 , 1 0 1 * 3 2 , 639i 632 |
.632 |
1 1 = 12 |
еэЭ П= 11*1 |
|
|
l F ( H Z ( I l i l c n 6 3 4 » 6 3 n 6 3 4 |
6 3 4 |
I N D T =KT ( I L I 3 2 - 1 1 ’•H Z ( 1 2 ' 1 C ) |
йг5 |
IF{ IHDT) 636,635*636 |
lM0 T=KTtll-iJ2*l)-NZ(IltlC> |
|
IF 11Ы0Т1636, 638•636
£}6 INDT= K T(lU iJ 2 * l) - flZ ll 2 .I C ) I F (1 NUT)633»637I 633
637IN0T = K T ll L iJ 2- l» - flZ (ll« lC > lF(lNDT1633,63ei633
638J 1=J 1 +2
6 3 9 |
GO TO |
626 |
I F ( H Z ( 1 , I ) - M K U Z 1 6 4 0 | 6 + 0 1 641 |
||
6 4 0 |
1 1 = 2 |
642 |
641 |
CO TO |
|
11=1 |
’ |
|
642I F ( IC” 1 * I 1 1630 • 6 4 3 1 643
6431C=IC-1
I F ( I P A R ) 6 4 5 , 6 4 4 I 645
64 4 IP*R=1
СО TO 63Я
645J = J2
64611=1
•6 47 11=11*1
I F i n Z d l I I ) ) 6 4 7 I 6 4 B , 6 4 7
" 6 4 8 K = K T I I L , J 1 r i Z ( l l i I ) = K
00 649 11=1,2
649flAll (I 1,K) = 1
650IF <1L-IA)621,6511651
651l F ( I - I G ) 6 5 2 ,6 6 2 t 6 6 2
652lF<MZtl,l)-ttKUZ>655,655,653
653DO 654 J=t,HKUZ
65 4 |
H«ll 12 1 J )=0 |
655 |
CO TO 657 |
HCJ=PKUZ*1 |
|
|
00 656 J=NCJ,HNAL |
6 5 6 |
HA 11(2 1 J )=0 |
6 5 7 I HD = « Z ( 1 , 1 * 1 )
H * l l | 2 , I H P J = i CO TO 620
:658 J =J + 2 IND=KT(IL,0)
IF(HA 1 1 ( 2 , IHO)-П 659,650 ,659
6$9 IF (J- H CRPIIL,11*3>656,6601 660
660J = 1
661J=J+2 1„0=КТ(1L »J )
IF ( M i l l l | . l NO) -1 ) 6 4 6 ,6 67 ,6 46 667 IF( J-HCRPUL, 11*3>661,65 0,6 50
662CONTINUE 1 C=IC +2
72 |
PRINT 72 |
Г0ПНАТ41Х, 'ОКОНЧЕН БЛОК *, |
|
|
1 '40РНИР0ВЛНИЯ HZ»> |
1 676 |
J = 0 |
|
PR=1.0 |
| 6 f l |
P R l = l , 0 |
J=J+1 |
|
€02 |
VZ=f,0 |
1 =0 |
|
1 = 1 * 1 |
1 1 =HZ1 1 , J)
J F 43 1 )16 77 ,1 67 7, 16 03
|6fr3 |
V ? s V P n i H V Z - V Z * V 6 n i ) |
1677 |
IF|1"KMZ)1802 »160 4,1 6®4 |
1604 |
PR1=PR1*VZ |
|
IF(VZ -PR >1605, 160 6, 160 6 |
1605 |
Ills J |
1606 |
PR =VZ |
I F ( J - I C ) 160 1, 16 0 7 ,1 6 0 7 |
|
1607 |
CONTINUE |
P R I N T 1 0 . H P U Z ( U , 1 ) i M P U Z ( L , 2 ) ,
llA,PR1■r
I F ( PR 1 -VTR ) 26,0 6,99 9, 999 2606 I F ( I U - 2 1 7 3 5 , 7 3 5 , 7 3 0
735 IF( IP. 1>2607, 2607 ,7 32
730I F ( | U - i e * H 2 ' 6 0 7 , 26 0 8 , 7 3 1 2608 ]N0=T1Z I 1 1 IC)
IF {VP(INO)*la0 > 2 6 0 9 , 7 3 2 ,7 32
2609 I F ( HZ ( 2 . 1 C ) > 2 4 07,2 607,2610
2610 INOsriZ (2 1 IC)
I F ( V P I I N O > M ,0 > 7 3 l, 7 3 2 ,7 3 2
731IF fIp> 2607 *2607 ,7 32
7321=0
7 3 3 1 = 1 + 1
1 N 0 = H Z l I 1 1 (J>
|
I F ( I H D ) 6 7 0 , 6 7 0 , 7 3 4 |
|
7 34 VP ( I N D ) = V P ( I N D ) + 0 , 5 - r 0 , 5 * VP 1 I NO I |
||
|
P R I N T 1 0 , I , I U , I N O , V p ( I N D 1 |
|
10 |
CO TO 7 3 3 |
|
FORhAT (2Xi3I5iFl0,6) |
||
2607 |
JNOT=HZ ( 1, lUI-HKlIJ |
|
1608 |
IF f ГNOT>165 1,1 65 1, 1608 |
|
I F ( I U - 5 ) 1 6 1 2 , 1 6 0 9 , 1 609 |
||
1609 |
I = IU-3 |
|
1610 |
IFHU + 4 - I C ) 1 6 I I , 1614, 1 6 14- |
|
1 6 1 1 J = I U + 3 |
|
|
1612 |
CO TO |
1 6 1 6 |
IF ( IU—I I 161 3, 16 6 7 ,1 6 1 3 |
||
16 13 |
l=iu-l |
|
|
CO TO |
1610 |
1614 |
IF (TU -IC) 16 15 C1 668 , 1 6 I 5 |
|
1615 |
J=1U+1 |
|
1616 HtN= 100 |
||
|
11 = 0 |
|
|
IR=0 |
|
: 1 6 1 7 1 1 = 1 1 + 1 |
||
|
J 1=MZ( I 1 , 1 ) |
|
|
I F ( J l > 1 6 1 8 , 1 6 2 6 , 1 6 1 8 |
|
|
!2=HS B (J I + P -MSB 1J 1) |
|
1619 |
I F ( I 2 - n i N > l 6 2 3 , 1 6 i 9 , l 6 l 7 |
|
I F H R ) |
1 6 2 1 , 1 6 2 0 , 1 6 2 1 |
|
1620 |
ICsK |
|
|
CO TO |
1 6 2 2 |
|
I C e I R |
|
|
IN0T=VP(I21-VP(IC1 |
|
1623 |
I F I I N O T ) 1 6 2 3 , 1 6 2 3 , 1 6 1 7 |
|
I F f I РДР 1 1 6 2 5 , 1 6 2 4 , 1 6 2 5 |
||
1624 |
K = J 1 |
|
|
H l N = I 2 |
1 6 1 7 |
|
CO TO |
|
|
lR=Jl |
|
|
>1lN=I2 |
1617 |
|
CO TO |
|
1626 |
IFU RI 1 6 27 ,1 62 7,1 62 8 |
|
1627 |
1PAR=1 |
|
|
I=J |
|
|
MlN=100 |
|
|
11=0 |
|
|
CO TO |
1617 |
162Й |
I F ( K- I R ) 1 б 2 9 ,1 6 3 Й , 163» |
|
1629 |
I=NSB1(K*1) |
|
ias
|
J.1=K |
|
|
|
U57 |
H1N31I0 |
|
|
|
|
|||
|
J3e tR |
|
|
|
|
|
|
|
|||||
|
CD |
TO |
1631 |
|
|
|
1=0 |
|
|
|
|
||
1630 l=HSH.l (lR*n |
1658 |
I = |V 1 |
|
|
|
|
|||||||
|
J l s t R |
, |
|
|
1659 |
0=1 |
|
|
|
|
|||
|
J 3 * K |
|
|
|
J=J*2 |
|
|
|
|
||||
|
|
|
|
|
|
Ol=HCRPtI,n |
|
|
|
||||
1 6 3 1 |
l F |
( K - H K V I Z ) |
1 6 3 2 . 1 6 3 2 , 1 * 3 1 |
|
|
|
|
|
|||||
«A to |
^ S M |
K |
( K i i |
U u i / i f n |
, * 2 . . . . |
I F (КТ( I , J)wJjJ 16621 1661. 1662 |
|||||||
1632 |
X *( (H K (K V ll - H K tl R ,n , , : , J A, n |
J ^ KT([,0 )« J2 M 6 6 2 i l 66| , |
|
||||||||||
|
^ U H K t y . V - H K n R ^ D . j S I s i ! * ^ [JJ® |
IF n U M t i l i |
t i n |
ii<« . |
|
||||||||
|
j n j l - M I N l 1661,1603, 1663 |
|
|||||||||||
|
RHsSQRTlX) |
|
|
|
HIMsJl |
|
|
|
|
||||
1633 |
J«KtlP |
|
|
|
1662 |
I F (0-01*11 1 6 5 9 , t663b1663 |
|
||||||
1630 J = 0 - 1 |
|
|
|
||||||||||
|
M P {J ♦ i , i ) =MP t о , i j |
1663 |
I F I I - I A I 1 650, 1664 ,I0 64 |
|
|||||||||
1635 |
1 F I 0 - I J 1 6 3 5 , 1 0 3 5 , ,6 3 4 |
1664 |
J=j |
|
|
|
|
|
|||||
HP( I «11=J3 |
1 |
1665 |
0*J*2 |
|
|
|
|
||||||
|
I = I *HKUZ |
|
1 606 |
I F , К Т ( I C • О I - J 2 1 1 6 6 5 , 1 6 6 6 , 1 6 6 9 |
|||||||||
|
0*M(JAL |
|
|
K * K T ( l C , 0 - 2 ) |
|
|
|
||||||
1630 |
0=0-1 |
|
|
|
|
|
I R s K T d c , J * 2 | |
|
|
|
|||
|
VP( J* 1) =VP( J) |
|
|
CO |
TO 1 620 |
|
|
|
|
||||
1637 |
t P |
( J - n 1 6 3 7 , 1 6 3 7 , . 636 |
1 6 6 7 |
K = H P U Z ( U < 1 1 |
|
|
|
|
|||||
VP( ! >=pz |
|
|
|
I P l |
= l |
|
|
|
|
||||
|
N' CJ = 0 l * i |
|
|
|
CO |
TO 1669 |
|
|
|
|
|||
|
DO |
1639 0=HCO,KSBi |
1 668 0 = H P U Z ( L , 2 | |
|
|
|
|
||||||
|
I F , MSB1 ,0 )1 1 6 3 0 ,1 6 3 9 ,1 6 3 6 |
|
|
IP=1 |
|
|
|
|
|||||
1638 HSBi<0)cHSei<J)M |
1 669 |
1 * 0 |
|
|
|
|
|
||||||
1639 |
CONTINUE |
|
|
|
RM*100000 |
|
|
|
|
||||
|
I 3 r l 3 * l |
|
|
1 6 7 0 I = i * l |
|
|
|
|
|||||
|
HOHP (13, 1)SK |
1 6 7 1 |
I 1= MSB1(к 1- 1 |
|
|
|
|||||||
|
HDMP ( ! 3 , 2 ) S I R |
1 1 * 1 1 * 1 |
|
|
|
|
|||||||
|
HONP » T 3 , 3 ) »RM |
|
|
I F ( H P ( 1 1 » 1 1 - 11 1 6 7 2 * 1 6 7 5 , 1 6 7 ? |
|||||||||
i P B H T ^ . n H O H P n . n , , | 1=1,3, , |
1 6 7 2 ! N D T * ! l W I S B l ( K * ! ) + t |
|
|
||||||||||
|
|
I F , |
T NOTI 1 0 7 1 , 1 6 7 3 . 1 6 7 J |
|
|||||||||
|
ipA(Ue |
|
|
|
|
|
|||||||
|
|
|
1 6 7 3 |
X = , , H K ( K , l ) . H ( ( ( l , i n * l B A S n « * 2 |
|||||||||
1640 |
IF tK - H P U Z a , 1 D 1 6 * 0 , 1040, ,646 |
|
|
Т * ( ( Н К ( К , 2 | ч Н К ( 1 , 2 ) ) * I R A S 1 J * * 1 |
|||||||||
I*K |
|
|
|
|
|
x*x*v |
|
|
|
|
|||
|
11 s IR |
|
|
|
|
|
RAS«S0RT(X) |
|
|
|
|
||
1 6 4 1 J » H S B M * 1 1 |
|
|
|
I F ( R A S - R H I 1 6 7 4 , 1 0 7 5 , 1 6 7 5 |
|
||||||||
|
J l s K P T |
|
|
|
1 6 7 4 RHeRA S |
|
|
|
|
||||
• 1 6 4 2 J l r J i - 1 |
|
|
|
|
I R * I |
|
|
|
|
||||
|
H P T ( 0 1 * 1 I = H P T ( 0 1 , |
1 6 7 5 I F , 1 - H K U Z ) 1 6 7 0 , 1 6 7 6 , 1 6 7 6 |
|
||||||||||
|
J F ( J l - O ) 1 6 4 3 , 1 6 4 3 , 1 0 4 2 |
1 6 7 6 I * H S B 1 ( K * 1 I |
|
|
|
|
|||||||
1 6 4 3 H P T ( J ) = I 1 |
|
|
J U K |
|
|
|
|
|
|||||
|
N 0 0 * 1 * 1 |
0 1 * N c 0 , K S e |
|
|
J 3 * I R |
|
|
|
|
||||
|
00 |
1 6 4 5 |
|
CO TO 1 631 |
|
|
|
|
|||||
|
I F ( M S B C J 1> > 1 6 4 4 , 1 0 4 5 , | 6 4 4 |
1 |
FORHAT(2613 1 |
|
|
|
|
||||||
1 6 4 4 H S e ( O l l * H S B ( j n * t |
|
|
|
|
|||||||||
2 |
FORMAT( IX,24 1 5 1 |
|
|
|
|||||||||
1 6 4 5 C O N T I N U E |
|
|
|
|
|||||||||
|
3 |
FORHATllX,12F10»4, |
|
|
|||||||||
|
I F ( l - H K U Z l 1 6 4 6 , 1 6 4 6 , 1 5 9 9 |
|
|
||||||||||
|
4 F 0R M A T < I 6 F 5 . 2 » |
|
|
|
|||||||||
1 6 4 6 I F , I P A R 1 1 6 4 7 , 1 6 4 7 , 1 5 9 9 |
|
|
|
||||||||||
U |
FORMAT(20141 |
|
|
|
|
||||||||
1 6 4 7 |
I P A R » i |
|
|
|
|
|
|
||||||
|
|
12 |
FORMAT(IX,3014) |
|
|
|
|||||||
|
1 l = K |
|
|
|
|
|
|
||||||
|
|
|
|
31 |
FORHAT(4012) |
|
|
|
|
||||
|
I = IR |
|
|
|
32 |
FORH*T(1X,40I3) |
HgT |
*,2 X, 20 I5 ) |
|||||
|
CO |
T O 1 6 4 1 |
|
50 |
FORHAT(2X,»0 |
HP |
|||||||
1 6 4 B |
1 1 * 2 . |
|
|
51 |
F0RHAT(2X,*a |
KT |
H*/I0 |
СТРОК |
*, ' |
||||
1 6 4 9 |
1 1 * 1 1 * 1 |
|
|
61 |
1 'ДЛЯ |
ПАРЫ*,2161 |
НдЛО СТРОК |
Ч |
|||||
1 6 5 0 |
I F ( H P U Z t L , l 1 1 I 1 6 4 9 , 1 0 5 В , ( 64 9 |
FORHAT,2X,»B |
HZ |
||||||||||
H P U Z ( L , I |
l l s I R |
|
I 'ДЛЯ |
ПАРЫ*,210» |
|
|
|
||||||
|
CO |
TO |
1 59 9 |
|
|
|
|
|
|
|
|
|
|
1 6 5 1 |
P R * |
1 , 0 |
|
|
|
|
I F , L —L p ) 101,9990,9990 |
|
|||||
•1=0 |
|
|
|
|
,9990 |
|
|||||||
1 6 5 2 |
1 * 1 * 1 |
|
|
|
CONTINUE |
|
|
|
|
||||
|
I l s H Z ( l i I U ) |
|
|
2, ( ( HPUZ (1,01 ,<J* 1 , KPUI) » |
|||||||||
|
I F ( 1 1 ) 1 6 5 3 , 1 6 5 5 . 1 0 5 3 |
|
l i = l , L P ) |
|
|
|
|
||||||
1 6 5 3 |
I F ( V P ( ! U * P f t l 1 6 5 4 , 1 6 5 2 , 1 0 5 3 |
|
3 2 , ( H P , I , n , I * l , K H P ) |
|
|||||||||
1654 |
PRsVP(111 |
|
|
12,(HSBl ( I I , l * l , K S B l » |
|
||||||||
|
02*11 |
|
|
|
|
3 2 , (HPT( I ) , I * 1,кР ТI |
|
||||||
CO T O |
1 6 5 2 |
|
|
121 ( nSB( 1 1 , 1 * 1 , K$B V |
|
||||||||
1 6 5 5 |
I F t I U - 2 1 1 6 5 6 , 1 6 5 7 , 1 6 5 6 |
|
9 i ( V P I H , I B I «HNAL| |
|
|||||||||
1656 IF l i y . - IC M J |
105 7.1 666 ,1 65 7 |
|
STOP |
|
|
|
|
|
|||||
|
|
|
|
|
|
|
|
||||||
END
199
11.5. Программа расчета емкости ребер и узлов коммутации системы связи
Программа предназначена для определения интенсивности по токов вызовов, поступающих на транзитные узлы и,ребра систе мы связи. Объем программы составляет 425 перфокарт. Исходные данные:
а) переменные KPT, MKUZ, KPUZ, ККТ, N, KPRAL, IZ, LO, KSB, KSB1, КМР, LP, KMPR; NLP\
с б) массивы MPUZ, YPUZ, МР, MSB1, MPT, MSB.
При большом числе двухполюсных сетей (LP>300) програм ма может работать по вариантам; при этом в качестве исходных массивов используются результаты, полученные ранее и помещае мые в массивах YUZR1 и YUZR4. Для первого варианта эти мас сивы пустые.
Для каждой пары оконечных узлов, кроме результатов про граммы P01SK, на печать выводятся два варианта результатов расчетов.
1. Для сети с обходами:
а) номер транзитного узла; интенсивность потока вызовов, рас считанная в данном варианте; интенсивность, полученная в ре зультате предыдущих вариантов; суммарная интенсивность; на грузка, полученная для сети с обходами.
б) та же информация для ребер между транзитными узлами;
в) та же информация для ребер между оконечными и транзит ными узлами.
Первые группы чисел — это результаты по п. а ); последующие группы чисел — по п. б) и последние группы чисел — по п. в).
2. Для сети без обходов форма и последовательность записи результатов аналогичны.
Для нормальной работы программы необходимо иметь 90 кбайт оперативной памяти, в том числе 48 кбайт для объектного моду ля программы; 10 кбайт для исходных данных; 32 кбайт для про межуточных и окончательных результатов.
В случаях некорректности исходных данных, сбоев в работе внешних устройств ЭВМ, недостаточности размера массива путей программа выдает необходимые сообщения.