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

ТОГДА НА ПРИНТЕРЕ БУДЕТ ТАКОЙ ЖЕ ГРАФИК, ЧТО И НА ЭКРАНЕ. ПРИНТЕР ДОЛЖЕН БЫТЬ ШИРОКИМ! ;) {; 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 % (см. сумму вкладов). После выполненных пре¬образований рассчитывается мат¬рица первых кор¬ре¬ля¬ци-онных моментов вос¬ста¬нов¬ленной мат¬рицы Х и все вы¬чис¬ления повторяются вновь

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа
Контактные линзы Purevision www.ochkov.net.