С. 28 ГОСТ 25645.323-88
115 FORMAT (/. 2Х. ЧГ ПРОГНОЗА - \ 15. 2. 2Х, В1.РОЯТИ. БНЗОТКАЗ. РА-
• БОТЫ =’• . F5. 2. 2Х. ДОВКРИТ ВКРОЯТНОГТЬ •*, 15. 2)
DOI0H0NN- I.N5N
РР3 РР1 (NN)
1>0 »^Ъ0 NN1= I.N6N
GG-GCl (NN1)
DOSH0 I -1.NH
50в А(1) = АК(1)
OO550I = 1.М0
DO5501 =1, Нб
550 D(l. J)c DR(1, J)
PRINT 115.XX.PP, GC
M- M0
N =N0
KK = 1
100 M=M
N -N
DO10 I - I. M
XI ’0 .0
D 7-00
D 0 6J»1,N
XI =XI ♦ A(J)
6 D7 -D7 ♦ Dll, J>
XI = X1/N
Dl(l) 3 D7/N
V=0.0
U(I) =jW
S(l> =0 0
007 J * 1,N
V ь V ♦ (А(Л - XI) •* 2
7 U(l) - IJ<1) +(D ll, J) * <A(J) -XI))
BAD *U(IJ/V
AA(I) 3 D1(I) - B(l>* XI
10 CONTINUE
IX)8 I 3 l.M
D 08J = l.N
8 S(1) * S 0) + (T>(I. J) - АЛ (1) В(I) ♦ A(J)) •• 2
ООП I - l.M
DO11 J - I, N
11 RL (I. I) * D (1. J) - AA (D - В(I) * A (J)
200 FORMAT (IX. 6E11.4)
Z = S(1)
L - 1
IX) 131-2, M
IRS II). t.T 7) GO TO I 3
г
3 s <I)
L - 1
13 CONTINUF
SS = S (L)
SY -0Л
DO12 J - I, M
12 SY 3 SY ♦ S (J)
C - SS/SY
N1 3 N - 2
N2 3 N1 . (M - 1)