ГОСТ 25645.323-88 С. 29
Р = I .- 1/(20 *М)
CALL QW1- (F. P.N1.N2)
QU = F/(M- 1+ F)
IF(G. Lfc.QU)GOTO SO-
I
M
I
=
(L
M
E
-
O
!
. IM ♦ l))GO TO 45
DO40 I « 1,M
DO40 J = l, N
K -M + l
11(1, EQ.L) GO TO 41
GO TO 40
41 D(l. J)= D(K.J)
411 CONTINUF
45 C
IK
ON
N
T
N
IN
.C
U
T
E
. l.OR. NN1. GT. 1) GO TO 260
2i0 FORMAT <SX. НОМЕР ВЫБРОШЕННОЙ СТРОКИ * М 3)
PRINT 2 IHf L
220 FORMAT (5X, МАССИВ DR-ПОСЛЕ ВЫБРОСА )
PRINT 220
D042 I» 1,M
42 PRINT 2, (D (I. J). J ’ I, N)
260 R1 - M • N
R2 =Mff * N0
RM КIVR2
1RRM. GE.0. 8) GO TO 1ЙГ
GOTO 150
С И< КЛЮЧЬНИЪ ПО N
50 KK - I
DO 17 J - I, N
RL4 - 00
DO 77 1“ I.M
77 RL4 - RL4 * RL (I. J)
RLL(i»= KL4/M
17 CONTINUE
7. “ ABS (RLL (I))
L • I
DO 19 1= 2. N
It (ABS (RLL (0). LT. 7.)GO TO 19
Z
1 ABS (RLL <1»
L - 1
19 CONTINUE
RR - ABS (RLL (L))
C -A 0
DO20 I - I. N
20 C * C ♦ Rl L (I) •• 2 SS
SORT ll /N «О RP2 ’
RK/S5
P = l. I./<40 • N)
N1 ■»N - I
(ALLOWS IT. P. N|)
RN = SORT <N ♦ T •• 2/ (N 1+T»*2l)
II (RP2. I.E.RNKIO 10 250
N - N - I
IF <L. 10. IN ♦ l))GO TO 60