ГОСТ З564$лй1-Ц
Стр. 111
1 3 3 9
0< 2 .N >e R A S T ( Т 1 , Т 2 ) *$QRT <1 - R 1)
1 3 Ю
Г: <3 »к ) - с
13 4 1
0
<
4
.
N
>
B R A S
T { T
i
* Т З > •
S f t R T ( 1 - R 1)
13 42■ 1NT Р СМ) s i
1 3 4 3
RE T
u r n
1 34 4
1 3 4 3
SU6 R0 UTJ NE TR
a
P ( T
i
. T 2 . T 3 , S » N -
1
3 4<3
COV.MOM/P.U 1 / 0 ( * * 3 0 > » Ь 4 Г Р Г 5 п > / в 1 . 3 / А К < Э » Э - < » 0 *
, X0 <3 » 5 0 )
1 3 4 7‘1/ftl. * / C j ( 3> . C2( 3 ) »C3* 3> »C4C 3) , B ( 3» 3» »64< 3» e
6 4 4
1 3 4 в0 I ME
n
S | 0 N T 1 ( 3 > , T 2 < 3 > ,
t
3 < 3 > . T 4 ( J > , C 3 ( 3 , 3 > ,
A J M (
3
,
3
)
1 34 9
d a t a a j
m
/ -
i
. # 3 *
o
. . -
o
. 7 0 7
i
,
o
, 7 0 7 1 ,
o
.
2
*
0 . 7 0 7
1 /
13 30Ns N♦ 1
1 3 5 1
c a l l s
^
s t
<
t
1
,
1 2
,
t
3
.
n
»
. 3 52C
a l l n c o s c
T
i
,
t s
.
c
«)
1 3 3 3
DC 1 J =
1
, 3
13
5
4•
00 1
1
s 1 .
3
1 3 5 5 C5 <J • I ) = 0
1 3 5 6ОС 1 M-
1
, 3
1 3 5 7
1
C 5 < J , I
i
= C 5 < J , I > * A J M < J , M > « A K ( M , J . N )
1.3 5ЛDO 2 I c 1 . 3
13 39C 3 « h * c 5 ( 3 . I )
1 3 6 0c 2 < I ) = C 5 (
1
. ! )
1 3 6 1DC 2 J з 1 , 3
J 3 6 22 A X < J , I , M > = C 3 ( J # t )
1 3 6 3
R 1 ‘
r
AS
t
( T 1 , T 2 > *
r
A S T <
t i
, T 3 ) / <
r
A S T ( T 1 , T 2 ) - S )
1 3 6 4H 2 * S C A LAR * С З . C6 >
1 3 6 5
00
3 I Bl , 3
1 3 6 6X0 < I «h ) s T1 ( I >♦ C 4 ( I > * R 1 - C 3 < l >* R2 * R 1
1 3 6 7 3 T
4
( J ) = X0 ( 1 »N )
136ft» A « 2 > = o . 3 ’ 3 5 5
1 3 6 9
64
<3 ) * 6 4 ( 2 )
1 3 7Д
6 4 4 =
_ R 1«R 2« 0 .
70 71
1 3 7 1
c a l l
P
e r v
x <в *в * »в
а
4
, N )
1 3 7 2C
a l l n c o s
< T 4 ,
t i
,
c d
1 3 7 3
D < l i N ) s A T A N 2 ( $ f t R T C l - < S C A L A R < C 2 » C l ) ) * « 2 > » S C
ALA«( C 2 *C 1 ) )
1 3 7 4CALL NC0S< T 4 , T 2 , C 1 >
1 3 7 50 ( 2 . N ) = A T A N 2 ( S f t R T C l - S C A L A R < C 2 . C l ) . * 2 ) , S C A L
А М С г . с ш
1 3 7 60 ( 3 »N ) s f)
1 3 7 7
0 ( * »
n
)
= R
a
S T
( T
1 »T 3 ) *
R 2
13 7 вI
n
F P ( N )
s
2
1 3 7 9 RE TURN
1 3 6 0
£ N0
1 3 6 1
S
U
ftROUTI
N
E K 0 L C 0 ( T 1 . T 2 , T 3 , S , F 3 , F 4 , N )
1 3 6 2
C O M M O N / B L l / O l
4
* 3 0 ) » l N F P ( 5 0 > / B L 3 / A K ( 3 # 3 , 5 0 )
, X 0 ( 3 , 30 )
1 3 6 31 / B L 4 / C 1 C 3 > # C 2 < 3 ) , C 3 ( 3 > # C 4 ( 3 1 » 0 ( 3 » 3 » . 6 < 1( 1 ) |
6 6 4 / 6 1 , 6 / С 3 ( 3 . 3 ? * A J M < 3 , 3 )
1
3 в АDI MENSI ON T 1 < J > , T 2 ( 3 ) , T 3 ( 3 ) #T 7 C 3 ) , T 6 < > )
1 3 6 5DATA P J / 3 . 1 6 1 3 9 2 6 3 /
1 3 6 6
N=
N♦1
1 3 6 7CALL NC0 S < T l , T 2 , C 4 >
1
3 6 6
F
1
* F
3