0052
0053
0054
0056
0057
0058
0050
0060
0061
0062
0063
0064
0065
0066
0067
0068
0060
0070
0071
0072
0073
0075
0076
0077
0078
0079
0080
0081
0082
0083
0084
0085
0086
0087
0088
0089
0090
009!
0092
0093
0094
0095
0096
0097
0098
0099
0100
0(01
0102
0103
0104
0105
0107
ГОСТ 25*45.126—#5 С. 15
\
20 1-1Ц
F2~F»(l)PI/l80,
lF(E.EQ.O) GOTO 21
S i•= A- -2COS(F2) •-2
rB
• 2 S1N(F2)•-2
S2=A --4C O S(F2)--2 + B--4-SlN(F2)- 2
Rl = $QRT(1U (I) •-2+2-HM I) -SORT(SI) -FS2/S1)
ARG-=(B •2+Hl(l) SQRT(Sl))/(A -2+Hl(l)-SORT(Sl»-
• (S!N(F2)/COS(F2))
F3~ATAN(ARG)
F2=-F2-F3
51 —SIN(P2)
52= COS(F2)
GOTO 22
21 F3—F2
22 F-= PI/2.—F3
C I-SIN (F)
C2—COS(F)
S(l.l) —1.
DO 24 N---2.NH
Sll.N)---SU.N-1) • (2 N -3.)/(N -l)
S(2,N) —S(l.N) • SQRT(<N~1.) -2/N)
IF(N.LT.3) GOTO 24
DO 23 M—3.N
23 S(M N) =S(Al —1,N) •SQRT<(N—M+ l.)/(N fM —2))
24 CONTINUE
Р О .П -1
R O .O -o.
P(l,2) =C2
RГ1.2)------Cl
P(2.2)=.Cl
R(2.2)-~C2
DO 28 N—3.NH
DO 28 M = l.N
1F(M—N) 27.26,25
25 P(M.N)=0.
R(M.N) *-0.
GOTO 28
26 P(M.N)-*=C1 -P(M—I.N—1)
R(.M.N) —C! R|M—1,N~1) (-C2 PlM -’l,N—1)
GOTO 28
27 NR - • ((N--2 ) ■-2—(M—1.) ••2>/( (2-N —3.) • (2-N—5.))
P(M,N) =C2-P(M,N—l)—NR- P(M.N—2)
RIM.N) -=C2 R(M.N—I)-C l P{M.N—1)-N R •R(M,N-2>
28 CONTINUE
DO 29 N= 1.NH
DO 29 M -l.N
P{M.N)=P<M.N)S(M.N)
29 R(M.N) —;R(M,N).S(.M.N)
L (I)-L (I)PI/I80.
DO 30 M = l.NH
Ul(M) -S IN «M —ll-L fll)
30 U2(M) = COS((M—l)-l.(l))
IF(E.EQ.l) GOTO 31
» l :=RS/(RS + HI(I))