Стр. 112 ГОСТ 25645.301—S3
13 6 9
t 2 = f 4
13 90
1 М Я А $ Т < Т 1 , Т 2 > - Й А $ Т ( Т 1 , Т З ) > 1 , 5 , 5
1 3 9 1
1 R 1
s
&AST( T 1 , r g )
13 92
DO 2
1
= l . 3
13 9 3
T
7
( n s T
3
( t )
1 3 9 *
2
T 6 ( I ) = T l < l > - R l * C 4 ( I >
1 3 9 3
S
s
S
*
R
A
S
T
(
T
i
,
T
7
>
/
R
A S
T
(
T 1
,
T
6
)
1 3 9 6
I F ( Г ! - p i / 2 ) 3 , 4 . 4
1 3 9 7
3 г i
p
3 • p I / 2 * P 1
1 3 9ft
F 2 c 3 * * I / 2 * F ?
1 3 ’ 9GO TO
13
1 4 0 0 4
F I
h
F I . P I / 2
1 4 01
F 2 = F 2 - P I / 2
GO TO 13
00 12 1
=
1 * 3
T
7 ( I > = T 2 < I )
Тв< I >= ТЗ( I ,
1 4 0 2
1 4 0 3
5
1
4
O
4
1 4 0 3
12
1 4 0 6
1 3
1 40 7
CALL s y S T ( T l , T 7 , T e f H,
P . 1 * P . A S T < T 1 , T 8 > / R A S
t
<
t
1 , T 7 >
R2 =S QR T ( 1 “ R1 * • 2 >
AJ M<1 , 1 ) s « l
A.) M( 2 , 1 ) s 0
AJM< 3 , 1 ) = - R ?
AJ M<1 , 2 ) a 0
1 40 6
1 4 0 9
1 4 1 0
1 4 U
1 4 1 2
1 4 1 3
AJM< 2 , 2 >= 1 .
1 4 1 4 .
AJ M < 3 , 2 ) aO
1 4 1 3AJ M< 1 , 3 ) *R
1 4 1 6AJ M( 2 , 3 >= 0
1 4 1 7
AJ M( 3 , 3 » = « 1
1 4 1 6DO 6 J = l , 3
1 4 1 9on 6 1 = 1 , 3
1 4 2 0C 3 ( J * t >= 0
1 4 2 1no 6 M S I , 3
1 4 2 2
6
C
3
(
J
*
[ )
=
C
3
(
J
,
I )
♦
A
J H
l
J
,
M)
»
д
К
( V
,
I
,
N)
1 4 2 3
П
О
7
j = l ,
3
1 4 2 4ПО 7 1 = 1 , 3
1 4 2 37
A M J , I , N ) SC5 ( J , l )
1 4 2 6
6 4 ( 1 ) sR 2 / 2
1 4 2 76 4 (’3 ) =R 1 / 2
1 4 2 6CALI. P F R V X ( 6 , 6 4 # D 4 f c , M >
1 4 2 9П < 1 * N » = P ! ♦ A T A N 2 « - S l N ( r i ) , - C o S f f l > * R 1 )
1 4 3 0I F ( F 2 - 2 * P l )
6
,
9
*10
1 4 3 16
0 ( 2 * N ) = P ! * A T A N 2 < - M N ( r 2 > , - C o S < F 2 > * R l )
1 4 3 2 GO TO 11
1 4 3 3
9
0 (
2 * N
) = 2
« P I
1 4 3 4 GO TO И
1 * 3 ?1 0 D ( 2 . N ) = 3 * P
i
* A T
a
N 2 < - M
n
< F 2 > » - C O S ( F 2 ) « * R 1 >
1 4 36
11
0^ 3 . N ) r S # « i
1 4 3 7
D ( 4 , N > = R
a
S
t
( T 1 , T 8 >
0 (
i
, N ) * F
i
D ( 2 , N ) =F
2
1 4 3 6 I F ( A 6 S ( S 1 N ( F 1 ) ) ,
l
T , , 1 B - 3 )
1 4 3 9 I F ( A 6 S ( S | N ( F 2 ) ) ,
l
T , , 1 E - 3 )
1 4 4 0! * Г Р ( М>=3
1 * * 1
RETUR
m
1 * * 2
E
N
D
1 * * 3
S
U
5
R
0
U
T I
N
E
C
I L ( T
x
, T
2 , T 3 * H
1 »
h
2
*
F
i
*
F2 ,
M>
1 * 4 4
CO
M
MOy / p L 1 / D ( 4 * 3 0 ) , I NF P ( 3 0 ) / B L 4 / C K 3 ) » C 2 »
3 > , C 3 ( 3 > , C 4 ( 3 ) , 6 < 3 , 3 > *
1 * 4 31 6 4 ( 3 ) , 6 4 4