ГОСТ 2М4*4Ф<~«) Стр. 89
6
*
2
0
’
2
06
209
1 9 * 1
>=
V M « V 0 X i J J - 1
»•
1 I
6 l = R A S t » C 0 . T9)
C
a i
,
И С 0 6 ‘ С О . Т 9 . Т « 1
2
1
0
?
1
>
2
x
2
213
6
* 6 1 .O
r
T « * S , O P T
m
#
n
P)
» ? * A 6 S | B l * S C A i A R ( T 6 » 0 R T N ) / V M / S C A x A R
T
n
) )
CA i tb j ST i l 9 )
V
MN s 6 1 • A S( RC)
2
1
*
2
1
2
1
!»
216
217
Я
2 1 9
6
6
220
22
1
6
*
2
2
Я 5
222
223
*
223
226
6
6
6
6
6
V * l = 6 1 . S C A t 4 R < 7 6 . C l >
C
a l x
v§CTORt x S . C 3 . T 5 )
CALL v § C T O R t x s , C l тб>
00 A* j
z
x »3
Si NВ c l ) r $ 1N6 i I ) - C 3 l I) «V M N * 6 B * B 2
S l T B , I
j s
S I T S
j
1 ) . C l ( I ) • VMT * в * 2
СИ1N
6
lJ )
s
C
m i n b
< 1 >-T3< l )*VMN*BB«62
C
m
I T
b i i
)= C
m
lT В < I >♦7 0( 1 )*VMT«f»B*62
RR*R
k
O
m i
-
1
>
C
a l l
R
n d m
1
i
RR>
C
a l l o t
R ( K S ,
v m
,
v
O
x
, *
p
,
l
OT)
CALL V
e
CT OR (XS #V0 X,T
d
DO 62 i f t = l , 3
5 2 1 I , *P >= S2 i 1 6 ,
n
P > -
v
0
x
<I )»VM.BB
C
m
2 ( J 6 ,
n
P ,
s
C
m
2 ( | 6 .
n
P > - T U I 6 ) * V M * B B
OSI 1 >s OSl J ) -V OX( 1 j • v M• АД
6
?
0 ( 1 6 )
s
D ( J 6 > . T 1 1 1 6 ) * V
m
« A A
227
226
229
230
231
232
233
2 3 *
2?5
66
v
m
2 =
v
m
.
v
m
0 E * 0 f - VM2«A A
62<NP>g E2 ‘
n
P»-WM2*BB
1 Г c L P O EQ , 0
) GO TO
6 ?
V M M * v n i * b
6
(SCALARIVOX.ORTH/»
VMTrv.M «SCALAR (vOX.CJ )
Onl * l » 3
2 3 6
2 3 ?
2 3 6
2 3 ?
2*0
2
во
67
6
6
3
6
6
2
66
2*
1
2*2
2 *5
2 *4
2 * 5
2*6
*?
2*6
2 * 9
2
2
1
—
2
6
66
69
63
2 5 0
2 3 ;
252
233
2 3 *
2 3 3
8
1
7
7
2 5 6
2 3 ?
236
239
60
2*0
2*
1
S 2 M I
>
s $ 2 * l 1 » - C 3 u ) * V M K * 6 6
S?T l l i
» S 2 1 (1 ) - C l 1 1 >*УМТ*вб CM2NИ )
XCM N i j ) - T 2 c | ) » V M H * B p
C«2T( l J * C*2 T ( j ) - T 3 ( M#VWT#f»B
IF ( L
6
R,EQ 0 » GO TO B
9
CALL RNOMl(RR)
CALI O T R ( X S » b l , T »NP»LOT)
VMH= l« A B S ( S C A u A R ( T B . C ) )
VMTe l # S C A L A R ( ? , C l >
CALL V t C T 0 R f X S , C l » T 6 >
00I ’ 1 ’ З
S NB I i ) * S
n
B
i
J | —C3 c >*VMN*®6*62
5 2 T B l I
)
в $ 2 Т б t 1
)
C 1
С
I
>#VMT*6B*B2
CM N { I j a C M g N f i c I
) - T 3 (
I> *V MW *B 6*8 2
С М 2 Т 6 » 1 ) я С м 2 Т В < 1 > - Т б ( 1 ) * у М Т * 6 6 * в 2
GO TO 57
CA
l l
VECTOR»XS,VOX,T
d
00
66
I 7 a 1 , 3
S 3 ( l 7 , N p ) S 3 i I 7 » H p ) * V 0 X ( I 7 , *VM.BB
CH3< 1 7 , HP » * C M 3 t | ? , м Р ) Ф ? ( I 7 )#VK*b&
OS ( I 7 ) sOS 4)» yO X (J)«VM«A*
D( I 7 ) s Q ( I 7 , * T l ( I 7 ) • VM* AA
VM2=V
m
*VM
E 3 (
N P
)= E
3 v N P / * v M 2 * B 6
2*2
0 E « 0 E * V M 2 * A A
CALL OTR( XS»VM , V 0 X, NP, LO T)
2 *3
2
* *
CALL VECTOR( X - , VOX, T
l
)