# Вторая пачка часть 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. Формальные параметры про¬цедуры

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа
купить флешки оптом дешево, стеклянные флешки, деревянная флешка купить