# Вторая пачка часть 204

Обычно требуется не боль¬ше 2 - 3 итераций. Для написания процедуры, выполняющей по¬стро¬е¬ние мат¬рицы связей, составим две вспомогательные про¬це¬ду¬ры-функции: FUNCTION SUM1 (N:INTEGER; A1:MASINT) : INTEGER; VAR J,I : INTEGER; BEGIN J := 0; FOR I := 1 TO N DO IF A1[I]=1 THEN INC(J); SUM1 := J; END; FUNCTION SUMED (N:INTEGER; A1, A2:MASINT) : INTEGER; VAR J,I : INTEGER; BEGIN J := 0; FOR I := 1 TO N DO IF (A1[I]+A2[I])=2 THEN INC(J); SUMED := J; END. Теперь процедура, осуществляющая построение мат¬ри¬цы смежности, имеет вид PROCEDURE MATSMEG (N:INTEGER;RALFA:REAL; R : MAS2;VAR G:MAS2INT); VAR J,I : INTEGER; BEGIN FOR I := 1 TO N DO FOR J := 1 TO N DO IF R[I,J]>=RALFA THEN G[I,J] := 1 ELSE G[I,J] := 0; END. Формальные параметры процедур. Входные: N (тип integer) - размер матриц корреляции и смежности; ralfa (тип real) - пороговое значение коэффициента кор¬ре¬ля¬ции; R (тип real) - исследуемая матрица. Выходные: G (тип real) - матрица смежности. Для построения матрицы связей S можно предложить следующую процедуру: PROCEDURE COMUN (N:INTEGER; G:MAS2INT; VAR S : MAS2); VAR J,I : INTEGER; A1,A2 : MASINT; BEGIN FOR I := 1 TO N DO BEGIN FOR J := 1 TO N DO BEGIN FOR K := 1 TO N DO BEGIN A1[K] := G[K,I]; A2[K] := G[K,J]; END; S[I,J] := SUMED (N, A1, A2) / (SUM1 (N,A1)+ SUM1(N,A2) - SUMED (N,A1,A2)); END; FOR J := I TO N DO S[J,I] := S[I,J]; END; END. Формальные параметры процедур. Входные: N (тип in¬teger) - размер матриц корреляции; G (тип integer) - мас¬сив целых чисел, состоящий из 0 и 1, называемый мат-рицей смежности. Выходные: S (тип integer) - мат¬ри¬ца связей. Для проверки работы процедур, используя матрицу взаимной корреляции из гл. 7, п. 5.2, табл. 7.10, стро¬ится мат¬ри¬ца смежности для rа = 0.05; 0.1. На ос¬но¬ва¬нии мат¬ри¬цы смежности выполняется анализ свя¬зан¬ных групп ме¬то¬дом корреляционных плеяд

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