Ст
р
.
12
ГОСТ 25645.204—83
0005
°о№
0008
0007
Э?51
эо
0028
881?
0
Э
31
0 0 8 ?
о
сс
?
0001
0008
0004
о Ш
0007
"В
5
4
7
Y F I =IY
PFTU9N
DATA NM4/1
6
Y
F
L
*
V F
L
«
.465661ЗГ-
«
END
SUBROUTINE
/
ROMEGAIMO,VC, КО)
CALL C S F I f t F b S F l l
ljn*STr:f*CFT
MP*CTFT
CTFT=I.-2.*RANNP(NWR)
S
T
E
T
■•S
O
R
T
I
I
,-C
T
F
T
**
2
)
VO*STFT*SFI
RETURN
END
DIMENSIONP (K *P ). 1РП 001
IF l HR ) l , ?. \
RE
T
U
R
N
IM O ) 5.Q.4
I F ( S . L E .
.C-)
ТП 0
SUBROUTINE
S
rR.TSSUJC.VR,HR,L l . S P . I P . i l )
2
I
F(Vr-.
N
F.
t
.
O
> Г.
0
TO
3
I
0* VR* VR-Uft* HR
<*
S=-VF/w<‘:
l 1=L1M
l
g
o
SPCLj)»S
IP ( L 11« 11
RETURN
S=-UR/f 2*VR)
3
IFf S . L c . 0 . 0 1 GO TO 6
l t * U M
SP(L1)*S
6
I P i L l l * 1 1
RETURN
0*SQRT(0)
S*T—VR—O) /UR
IF C S .lE .f’.O
’
) GO TO 7
L 1=L1♦1
SPCL1)*S
IP ( L 1 ) « I I
S=f-VR*r))/HR
IT C S .L E .0 .0 ) GO TO 8
L1-L1M
S P I U >*S
)P1L1loll
PETURN
FNO
SUBROUTINE ST SI XO. Y(). ?0 ,U0. VO.WP.L 11
C04|«R»:/4G/URtVV.WRf 41 >0. 10) ,ROt 30)
C 0 H W f t S 2 / ID M lC T ) , IP(lO O ), SP( ICO) ,XP( ICO)
fell! Ill^
COMMON/ACI/N.NZnN,ITI501.NCFI50).Mil 8 0 ) . I P ? ( > 0 . 6 ) , ID130.6).KPN (301
00 IT 11*1,4
1
GO
L
TO
T
I 1
l
.2
i
.
,
3 , 4 . 5 , 6
,
, 7 , 8 . 9 . 1 0 . 1 1 , 1 ? , 1 8 . 1 4 1 . 1
£A LjP n X O ,U O lO O )