Вторая пачка часть 208
950 0.980 17 0.456 0.575 120 0.178 0.232
3 0.878 0.959 18 0.444 0.561 130 0.171 0.223
4 0.811 0.917 19 0.433 0.549 140 0.165 0.215
5 0.754 0.875 20 0.423 0.537 150 0.160 0.210
6 0.707 0.834 21 0.381 0.487 200 0.139 0.182
7 0.666 0.798 30 0.349 0.449 300 0.113 0.148
8 0.632 0.765 35 0.325 0.418 400 0.098 0.129
9 0.603 0.735 40 0.304 0.393 500 0.088 0.115
10 0.576 0.708 50 0.273 0.354 600 0.080 0.105
11 0.553 0.684 60 0.250 0.325 700 0.074 0.097
12 0.552 0.661 70 0.232 0.302 800 0.069 0.091
13 0.514 0.614 80 0.217 0.283 900 0.065 0.086
14 0.497 0.624 90 0.205 0.267 1000 0.062 0.081
15 0.482 0.606 100 0.195 0.254
Если теперь |?jk| < t?, то гипотеза принимается, т.е. меж¬ду величинами нет значимой связи. Ес-ли |?jk| > t?, то гипотеза от¬кло¬ня¬ет¬ся, а кор¬ре¬ли¬ру¬е¬мые признаки считают ли¬ней¬но связанными.
5.2. выЧислительный алгоритм, процедуры и формальные параметры
Прежде чем составить основную процедуру, вы¬¬пол¬ня¬ющую вычисление кор¬реляционной мат-р謬цы, пред¬ложим две вспомогательные пр¬¬це¬ду¬ры-функции:
FUNCTION SUMXR (N,J,K:INTEGER; X: MAS2) : REAL;
VAR SS : REAL; I : INTEGER;
BEGIN
SS := 0.0;
FOR I := 1 TO N DO
CASE K OF
1: SS := SS+X[I,J];
2: SS := SS + SQR(X[I,J]);
END;
SUMXR := SS;
END.
FUNCTION SUMXYR (N,J,K:INTEGER; X,Y: MAS2) : REAL;
VAR SS : REAL; I : INTEGER;
BEGIN
SS := 0.0;
FOR I := 1 TO N DO
SS := SS+X[I,J]*Y[I,K];
SUMXYR := SS;
END.
Тогда процедура, выполняющая вычисление кор¬ре¬ля¬ционной функции, мо¬жет быть:
PROCEDURE CORR (N,M : INTEGER; X: MAS2;
VAR R : MAS2);
VAR I, J, K : INTEGER; XIJ,XIK,XJK,XJ,XJ2,XI,XI2 : REAL;
BEGIN
FOR J := 1 TO N DO
BEGIN
XJ := SUMXR (M,J,1,X);
XJ2 := SUMXR (M,J,2,X);
FOR K := 1 TO N DO
BEGIN
XIJ := SUMXYR (M,J,K,X,X);
XI := SUMXR (M,K,1,X);
XI2 := SUMXR (S,K,2,X);
R[J,K] := (M*XIJ - XI*XJ) / (SQRT(M*XI2-
XI*XI)* SQRT(M*XJ2 - XJ*XJ));
END;
END;
END.
Формальные параметры про¬цедуры
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
