Стр. 88 ГОСТ 23645.Э04—S3
150
B3 = 2 *
P l • R* DMf - I ’
151
B 2 s C
O S f
8 3 >
152
8
3
= S l N < 6 3 »
153
DO 20 I 1 s 1 , 3
1 5 *
1
Г< l l . E Q . N G > GO
TO 20
1 5 3
V
0X( I).I 1 ) * 8 1 « B 2
1
56 6 2 s B 3
1 5 ?
2 0 CONTtNUf.*
1 5ft
VMs Rl S T l Г 0 , VOX) *HB
15 9
23
CALL « COS ( CO* VOX, VOX)
160
DO 52 1 1 0 = 1 , 3 .
161
DS( I 10 ) в 0
1 62 52 0< I 10 >=0
1 63 DF.sO
16 *
Г. S з 0
1 6557
! F.{ К$ , GE
,
fcD * GO TO
t q
1 6 6
T M s l . e i *
1 67
q
O 58 1 3 * 1 , N
16ft
I F < K P B , F Q . 0 . A N D . K P D . E O , 0 )G
o t
o
56
169
r r < ( M D f > 3 - ) . N E t o > . 0 « .
( F p 8 ( l 5 ) , r . E . . 9 9 9 9
M D l ( I 3 ) . E Q . 0 3 » GO TO
17 0
56
c a l l
S
t
<
i
3 ,
x s
,
v o x
.
t
>
17 1
’ F f T , G e . TM)GO TO 58’
1 7 2Тм= T
1 7 3
NP
s
1 з
1 7 *58
c o n t i n u e
1 7 339
l F< TM, GT. . 9 E 1 * ) 3 0 TO 7 0
1 7 *
* S = K S * 1
1
? 7
0 0
60
I * = 1 . 3
17ft
60
* s i I * ) s X$ <
1 * ) * V 0 X ( I * ) *-TM
1 79
1F СКS , N E . 1 )GO TO 65
lftON5
5
NS * i’’
l f t l
C
a l lv e c t o r
(
x s
.
v o x
.
t j
)
1 8 2
0 0 61
I 3 s
1
, 3
1
8
3
s
1
<
I 5 . * P
)
= S 1
< I
5 , N P ) * v O X < I 5
>«У M*ftft
1 8 *
C M l ( f 3 i N P ’ =CM1 ( i 3 , N P ) * T i ( l 3 ) . V M * B f t
1 8 s
0 S < I 5 > - v 0 X ( l 3 ) * V
m
*A*
1 8 661
0( 1 5 ) * T l < 15
)
»V
M
*
AA
1 8 7
Vм 2 z VM#-VM
1 8 8
E l ( N P \ s E l « N D >*VM2*BB
1 8 9DE=V
m
2 . AA
1 9 0
I r ( L P O . E Q . O )GO To
8
о
1 * 1
C
a l l
1 9 2
CALL
o r t
i
x s ,
o r t n
,
n p
)
S j S T f VOX J
V M N a v M. f t R S l R C
)
VNT
z v
m
. S C A L A R
(
VOX
,
C l
>
C
a l l v e
C
t
O R (
x s
, C 3 *
t
2
j
c a l l
v f c t
O
r
( X s , c i , T 3 )
1 9 3
1 9 *
19 5
1 9 6
1 9 7
1 9 8
1 9 9
2 0 0
D o 8
i
| s i • 3
5 l N < ! > a S l N ( I
) •>
С з c 1
>
*VMN *B8
•
S
1 т
‘
I
)
s S 1 T
(
l
) ♦
C
l (
I
>•
v
M T• ftft
CM1N( I
i
i f . Mj N ( i
)
- T 2 ( I \ • VMN • ft ft
2 0 181 C
m
1 T (
i
^
s
C
m
1
t
<
j
) * T 3 < 1 ) *
v
MT#53
2 0 2
8
0
l F
(
LRR # E Q
•
0
)
CO TO
83
2 0 3
0 0
82
2 0 * 82
т 9 ’ I
1 * 1 * 3
1
1
-Xft( I
)
2 0 5
c a l l v e c t
0
r
( 0
m
»
t
9 ,
t
*) ’ ’
2 8 6
00 83 I =
1
. 3. 3 .