Вторая пачка часть 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. На ос¬но¬ва¬нии мат¬ри¬цы смежности выполняется анализ свя¬зан¬ных групп ме¬то¬дом корреляционных плеяд
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
