ТОГДА НА ПРИНТЕРЕ БУДЕТ ТАКОЙ ЖЕ ГРАФИК, ЧТО И НА ЭКРАНЕ. ПРИНТЕР ДОЛЖЕН БЫТЬ ШИРОКИМ! ;)
{; ELSE
PRNGRAF (CHX,CHY,J);}
END
ELSE
IF CHX=' ' THEN
DN := TRUE;
UNTIL DN;
CLOSEGRAPH;
TEXTCOLOR (14);
TEXTBACKGROUND (10);
CLRSCR;
WRITE (' ЕЩЕ РАЗ? 1-ДА, 0-НЕТ ');
READLN (I);
IF I=1 THEN GOTO 50;
IF PR=1 THEN
WRITELN (LST,' ');
CLOSE (LST);
WINDOW (0,0,80,24);
CLRSCR;
END.
Как и ранее, для проверки и тестирования про¬це¬дур и программы методом главных компонент вы¬пол¬нен анализ экспериментальных данных. Данные взя¬ты из табл. 7.9 по расчету корреляционной матрицы.
РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ BURCOV
n= 5; m= 20.
СРЕДНИЕ ПО СТОЛБЦАМ (для контроля за вво¬дом данных):
2.421053 2.628421 5.084211 3.224211 0.008421.
КОРРЕЛЯЦИОННАЯ МАТРИЦА
1.00 0.34 0.58 -0.29 -0.45
0.34 1.00 -0.05 0.53 -0.45
0.58 -0.05 1.00 -0.73 -0.74
-0.29 0.53 -0.73 1.00 0.36
-0.45 -0.45 -0.74 0.36 1.00
СОБСТВЕННЫЕ ЗНАЧЕНИЯ
0.054739 0.128314 0.564726 1.633568 2.618654
*** ВКЛАД В ПРОЦЕНТАХ ***
1.094772 2.566273 11.294512 32.671368 52.373075
СУММА ВКЛАДОВ В ОБРАТНОМ ПОРЯДКЕ (учи¬ты¬ваются только те значения, которые дают су-щес¬т¬вен¬¬ный вклад в общую сумму (до 96 %), т.е., начиная с мак¬си¬маль¬но¬го, суммируют вклад каждого из ?i пока не получится нуж¬ная сумма)
52.373075 85.044443 96.338955
??? ????? ?? ??????? ???? ???????, ?????? ???¬??¬¬??¬???? ????? ?????????. ????????? ?? ??????? ?, Y ? Z ??? F1, F2, F3.
ФАКТОР ПО Х
(F1) :
0.72662
0.12109
0.94921
-0.70266
0.82541
ФАКТОР ПО Y
(F2) :
-0.30741
-0.97541
0.16630
-0.66483
0.34349
ФАКТОР ПО Z
(F3) :
-0.61074
0.06987
0.07228
-0.02193
0.42560
Теперь, зная факторы, можно вернуться обратно к ис¬ход¬ной матрице данных, используя основное урав¬не¬ние ме¬тода главных компонент. Полученная ошиб¬ка в данных со¬ставит 3.67 % (см. сумму вкладов). После выполненных пре¬образований рассчитывается мат¬рица первых кор¬ре¬ля¬ци-онных моментов вос¬ста¬нов¬ленной мат¬рицы Х и все вы¬чис¬ления повторяются вновь
