С. 34 ГОСТ 25645.323-88
f
X = FLOAT (Ж ) /(FLOAT(N2) ♦ FLOAT (N1) • К)
Ml =(NI / 2) * 2
М2 = (N2/2 ) *2
IF(M1. Nb.Nl.AND. М2. SF N2) GO TO 1
M- N1 / 2
Y * (FLOAT (N1>) / 2.
Y a Y - FLOAT (M>
A 4 I.
0
=
1
.
IKY. CT Я.<Г)С;0Т0 2
IF (N1. EO. 2) GO TO 3
M-(N1 - 21/2
DO4 1 - l.M
A = A • (1. - X) • FLOAT (N 2 * 2 * 0 - I))/FLOAT (2 • l>
4 0 - 0 + A
3 0 - 0 MX -(FLO A T (N2)/2 ))
GOTO 18
2 1F(N2. EQ. 2) GO TO 5
M- (N2 - 2) <2
DO 6 1= l.M
Л - A « X • FLOAT (N1*2 Ml - 1 ) ) /FLOAT (2*1)
6 О = 0 * A
5 0 = I. - O M (l - X) •* (FLOAT (N1) /2))
GOTO 18
1 TL’TA = ATAN (SORT O’ • I LOAT <N1) / FLOAT <N2) ) )
A * ТЕТЛ
b
-
cos
(T :
ta
)
c
=
b
IF«N2. FO. I) GO TO Ш
IF(N2. LO. 3) GO TO 8
M- (N2 - 3) /2
00 9 1= l.M
В= В • ( (COS ОТТА) )2 ) * FLOAT (2*1)/ FLOAT <2*1+11
9C=C+B
8 С =C • SIN (TF.TA)
A
=
A
+ C
1Й A " 2. * А/ 3.141592
B= 0jtf
1F(N1, FO. 1) GO TO 11
B= 1.
C= 1.
II (N1 LO. 3) GO TO 12
M= (N1 - 3) / 2
14)131= l.M
C =C* FLOAT (N2 + 2 • I 1>* ( (SIN (TFTAl) *" 2)/ FLOAT <2 • I * I)
13 B =B+C
12 В= В ♦2 • SIN (TFTA) * ( (COS (TETA)) •* N2) / SORT(3 141*92)
C= I.
IKN2. FO l)GO ГО 16
M=(N2 - 1)/ 2
DOIS I = l.M
15 C =C + FLOAT <l)
B -B *0
I.
11<N2. NF- 31GO TO \Ш
В =В/^THR623