ГОСТС тр.,й-
7 ) 1
DO 22 1 =1 * 3
732Tft( I ) s T l ( 1 »* T F. L *
1 0
>• C
1
( I ) ♦7 E L <
1 1
} • C 2 f I ’
733T 3 ( I > = T 4 ( I > *
t
E U ‘ 1 2 ) * C 2 ( 1 )
73ft
2 2
T 6 { i l : T i ( 1 ) * P J .C3< i
\
7 3 3
CAL L K O L C O ( т
4
, T 5 , T A , 0 , R
1
, N)
736
GO 70
u p
7
З
7
2 3 CAL L WV( l * 1
7 3 в N1 s N1 * 2
739
C A UР Е Я Е Ь ( Т 1 . Т ? , Т Ц
7ft0
CAL L E L l P S ( T 1 , T 2 , 7 3 , T F L ’ X < ’ , . T F L < l l > l r , K . T F l.
t X2 I • Г.
P
•7 E L f 1 3 I * G B , T E l t l
7 * X
lft * # G R , N 1
7 * 2
GO 70 42
743
24
CAL L WV1 1 4 )
74ft
N1
b
N1 * 2
743CALL P Ей E ^ <r l »T 2 » T j )
746C A L L P A R A e f T l 4T 2 , 7 3 , T E L , X 0 >» T F L ( H ) # T E . L < l 2
>*>GP , *EL { 1 3 ) * O P , Tfi L ( 1 4 >
747l »N
)
74Вi r c i N F T f N - i I . E Q . S . O R . t M r T j ^ j - j J . e a . f t lGO T
0 50
749
C A L L
k
O
L CUI T 1 .
7 2 . T
V 0 . T t-
L
( ). ?>*0R * 7pl,< 1
3 ’ * t
fi
. N ’
730
50
7 3 X
732
7 33
754
753
756
737
758
75981
760
i r ( ! N P 7 ( N - \ > , E Q . 2 « 0 R , I f ! F , ( fg- l > , E U I 4 , 0 R . 7 E l
( 10 » , E Q . T F-L t 14 1 )G0 TO 42
C A U
n
ORMAU « 71 . T i * 7 3 , C X >
C A L IN C O S < 7 1 , TJ>.C2)
CALL- N f . O S < 7 l , T j , C 3 >
R
1
* RA S T * T I » T
2
>• 5 L R T f 1 - 7 F.L
(
X4 >/ T £ 4 (
1
q
>)
R 2 s R » ’ , T ’ 7 1 , 7 3 ) . $ UR T ’ i - T F L * 14 1/ T E L * Ю ) )
00 .3X Г = 1 * 3
Tfcf I 1.r 7
1
( 1 ) * T E L < 10 >*C1 t I 3 ■»T E L < 11 * • C 2 <I >
T 3 { i ) s T 4 < I ) «-R 1 • C 2 ( f )
T 6( I 1 =7fc( I | »P 2 • C 3( I I
C A L L K O L C O < T 4 , T 5 , T f t , o , T e L < l 2 > * G f » * T E L l X 3 > * i .
7 6 X
76225
763
7 6 4
76 526
766
767
768
27
769
7702ft
771
772
773
77**
7 75
7 7ft29
777
R , N >
GO TO 42
CALI. v » V f A * 2 M H F T ( N i * i l )
N l s N l * 7
I F I 7 f L ( 4 > » 2 7 . 2 6 , 2 7
C 2 * 1 ) =
1
,
C 2 1 2 ) =
0
GO To 2ft
G Z l Z l s j / s b R T i X ^ t T E L t s J / T E t r f t l l ^ ^ Z )
C 2 < l > = - T E L < 5 J / T E L l 4 ) * C 2 f 2 ’
C 2 * 3 »s n .
C
a l lp f r e s
«
t
«.,
c
i
,
t
5>
c a l l
v p c
t o r
<с ; , С 2 . с з >
N*»V Г
4
* p* f Nr r ( N
1
-
1 1
0 0
мj =
7
• NWV
, 2
J F l T f L f ] + 2 ) - T El
11
)> 3 2 . 2 9 . 3 2
R 2 =A
m
A
x
1 (
t
E
l
( 1 * 1 > . 7 E
l
{ I * 3 > I
R 3 * A
m
1
n
1 I
t
F L < I * X ) ,
t
^ L M * 3 M
7 7800 30 J = 1 •3
774T l ( J l S T 4 l J I * t £ L ( | »«t 1 1J >
7 8 ПT
2
l J l
3
T l I J J * R
2
* C
2
(J>
781
30
7 3 I J ) = T i r J l * R 2 * c 3 <.>
1
7 Л2
J Г < 7 E L ( 1 * 1 ) . L 7 . Г £ L f I » 3
1 1
GO 70 31