С. 30 ГОСТ 23645.323-88
i
DO 48 I» l f M
D 0 4 8 J- !,N
К - N ♦ 1
IF(J. F.Q. 1)GO TO 43
GO TO 48
43 D(1,3) s P (I| K)
A (J) “ A (K)
48 CONTINUE
66 CONTINUE
lF(NN.GT.I.OR. NNI.GT. I) GOTO270
230 FORMAT (SX. ’НОМЕР ВЫБРОШЕННОГО СТОЛБЦА =\ 13)
PRINT 230, L
240 FORMAT (SX. МАССИВ DR-ПОСЛЕ ВЫБРОСА0
DO 49 1■ 1, M
49 PRINT 2, (D (I. I). J - 1. N)
270 R | =M • N
R2 - M0 • N0
RM » R1/R2
IF (RM. CE. 9". 8) GO TO 160
GOTO 150
С ПРОДОЛЖЕНИЕ СЧЕТА
250 Cl =0.0
C 2-0.0
C3 " 0.0
C C -0.0
C4 - 0. 0
C5 -0 .0
DO 30 J - 1. M
Cl * Cl ♦ AA (J)
CC-CC + S (I)
30 C2=C2 + B(J>
AK = l./M • Cl
BK = 1./M • C2
DO 31 J = 1. M
C3 =C3 ♦ (AA IJ) - AK)2
C4=C4 + (B (J) - BK) •• 2
31 C5 =C5 ♦ (AA (J) - AK) • (В (I) - BK)
SA 3 U (M - 1)*C3
SB= l./(M - 1)*C4
SAB =1) *C5
SY « SA + 2 • XX • SAB + XX2 • SB
X5
-fi.fi
IX) 35 I - 1, N
35 X5 3 X5 + A (I)
X5 = 17N*X5
SE = (1. /N ♦ «XX
-
X5)
♦*
2№
•
i j
(M
• <N
-
2» • CC
Y* AK + BK*XX
CALL QWN a . PP>
YP = Y - Z *SORT(SY- SI )
II- =SY/SI
N1 = M- I
N2 = M* IN -2 )
al
= < ♦<;<;>/2.
AL 1 3 I. AL-