Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

книги / Статистика и анализ геологических данных

..pdf
Скачиваний:
2
Добавлен:
12.11.2023
Размер:
21.12 Mб
Скачать

исходных дисперсий каждой переменной, соответствующих ос­ тавленным факторам. В этом примере все они близки к 1,00.

Аналогично тому, как это было сделано на фиг. 7,23 при рассмотрении метода главных компонент, мы можем графически изобразить факторные значения, соответствующие повернутым факторам (фиг. 7.34). Отметим, что в действительности первый фактор отражает общие характеристики параллелепипедов по всем измерениям, так как менее крупные тела располагаются слева, а более крупные — справа. Второй фактор позволяет отли­ чить изометричные тела от плоских и брусоподобных одного

итого же объема, но не дает возможности разделить плоские

ибрусоподобные формы и поэтому не может служить для описа­ ния формы самой по себе. Как и при МГК, двух факторов недо­ статочно для описания первоначальной изменчивости, содержа­ щейся в трех независимых переменных. Если сравнить фиг. 7.23

и7.34, то легко увидеть, что МГК и факторное представление очень похожи, а главное отличие состоит в том, что две оси по­ менялись местами.

Графическое изображение факторных значений (до вращения или после него) более сложно, чем в методе главных компо­ нент. Главные компоненты получаются в результате применения линейных преобразований, в то время как факторные значения представляют оценки вкладов различных факторов в каждое исходное наблюдение. Так как факторы находятся по тем же данным, вычисление факторных нагрузок является в некотором

5 6

Фиг. 7.33. Графическое изображение тех же нагрузок после выполнения вра щения по методу Кайзера.

Использованы данные по 25 блокам, а значения переменных приведены в табл. 7.19.

Фиг. 7.34. Графическое изображение факторных значений для первых двух факторов.

Горизонтальная ось соответствует фактору I; вертикальная — фактору И. Указано отно­ сительное расположение параллелепипедов по отношению к двум факторам.

роде циклическим процессом, и потому результаты могут оказаться неоднозначными. Одно из наилучших изложений этого вопроса принадлежит Моррисону [22] (см. также процедуры, описываемые Харманом [10]). В психометрии обычно факторы представляют самостоятельный интерес, а факторные значения совсем не используются, поэтому вычислению факторных значе­ ний до сих пор уделялось мало внимания. Вероятно, факторные значения могут играть значительную роль в применениях фак­ торного анализа в геологии и потому важно уметь их вычис­ лять.

Предположим, что наши исходные данные представлены в виде матрицы [X] порядка nxm , где п — число строк, или наблюдений, a m — число столбцов, или переменных. По анало­ гии с МГК можно вычислить матрицу факторных нагрузок [F],

умножая матрицу исходных данных на матрицу факторных на­ грузок [L], т. е. выполняя операцию

IX] [L] = [F].

Если мы сохраняем р факторов, то матрица нагрузок [L] будет матрицей порядка ш Хр, а матрица факторных значений [F] будет иметь порядок пХр. Напомним, однако, что исходные данные представлены не только с помощью факторов, а также с помощью специфической переменной (см. формулу 7.34), по­ этому матрица факторных значений, вычисленная таким обра­ зом, частично отражает ковариационную структуру заданного набора гп переменных, а также структуру р факторов. Действи­ тельно, для того чтобы получить истинныефакторные значения, специфическую компоненту исходных переменных необходимо отделить. Это делается с помощью умножения указанного урав­ нения на матрицу, обратную матрице ковариаций

[X] • [s2I-1 • [L] = [ F ].

(7.45)

Обратная матрица имеет порядок m xm ,

а матрица фактор­

ных нагрузок — порядок гпХр, так что матрица «истинных» фак­ торных значений [F] будет порядка пХр, что и следовало ожи­ дать. В результате выполнения этой операции мы получаем фак­ торные значения, свободные от специфической компоненты, имеющейся в каждом из исходных наблюдений.

Несмотря на простоту, этот метод нахождения факторных значений не используется на практике. Матрица [s2] может быть очень большой, в особенности в Q-методе факторного анализа, на котором мы остановимся ниже, и ее обращение может ока­ заться очень сложным. Однако, используя алгебраические соот­ ношения, мы можем обратить матрицу ковариаций порядка рХр, построенную по факторам, и в результате получим тот же результат. Обычно р бывает значительно меньше гп, что позво­ ляет упростить вычисления, хотя число матричных преобразо­ ваний при этом возрастает.

Вычислим сначала матрицу [s], умножая матрицу факторных

нагрузок на ее транспонированную

 

 

 

[L]' [L] =

[S].

(7.46)

Так

как

транспонированная

матрица

[L]' имеет порядок

р Х т ,

то в

результате умножения получится квадратная мат­

рица порядка рХр. Эта матрица обращается и умножается на матрицу факторных нагрузок, что дает нам некоторую вспомо­ гательную матрицу [В]:

[L ] [S]-‘ = [B ], (7.47)

которая затем используется для вычислений истинной матрицы факторных значений по формуле

 

[X] •

[B] =

[F ].

(7.48)

Последовательность

операций,

приведенных в

формулах

(7.46) — (7.48), может

быть

представлена в терминах

матрицы

факторных нагрузок:

 

 

 

 

[X] [в]= [ р ] ,

[X][L] IS]-1 = [ F ] ,

[X] [L ].([L ]' [L])-1 = [ F ] .

(7.49)

Та же процедура используется для получения проекций фак­ торных значений на факторные оси до или после выполнения вращения по методу Кайзера. Отметим, что в матрице данных [X] представлены стандартизированные переменные, а не исход­ ные, как в МГК, так как нагрузки в МГК вычислялись на ос­ новании ковариационной матрицы исходных данных, в то время как факторные нагрузки вычисляются на основании стандарти­ зированной, или корреляционной, матрицы. Конечно, если бы мы стандартизировали данные, используемые в МГК, то вычислили бы факторные значения на главные оси для стандартизирован­ ных данных.

Теперь задача определения числа р сохраняемых факторов приобретает важное значение. Число факторов влияет на раз­ меры воспроизведенной и остаточной корреляционной матриц, на общности и на нагрузки специфической компоненты. Сами факторные нагрузки при этом не изменяются. Это значит, что если из исходного множества данных мы извлекли р = 2 фак­ тора, то факторные нагрузки на факторы I и II не изменятся при добавлении третьего фактора. Однако если мы подвергнем вращению два фактора, то нагрузки могут сильно отличаться от нагрузок, полученных в случае, если бы мы извлекли из тех же данных и подвергли вращению три фактора. Вращение двух факторов при р = 2 не ограничено никакими условиями. Вра­ щение тех же двух факторов не может выполняться так же сво­ бодно при р = 3. так как третья ортогональная ось накладывает некоторые ограничения, которые также должны быть согласо­ ваны с базисом m-мерного пространства, определенного перемен­ ными.

Схема вращения по методу Кайзера сохраняет ортогональ­ ность факторных осей. Несмотря на то что после вращения фак­ торные оси не совпадают больше с главными осями эллипсо­ ида ковариаций, они образуют прямые углы друг с другом и,

35 Заказ 455

следовательно, некоррелированы. Существуют также схемы вра­ щения, в которых не требуется выполнение условия ортогональ­ ности, и факторные оси могут образовывать друг с другом углы, отличные от прямых. В некоторых случаях такие факторы мо­ гут быть лучше проинтерпретированы, так как часто нагрузки на такие факторы оказываются более высокими. Однако при использовании этих схем возникают некоторые трудности фило­ софского характера. Во-первых, факторная модель основана на допущении, что наблюдаемая ковариационная матрица является результатом корреляции между m переменными и р взаимно некоррелированными факторами. Ослабление условия ортого­ нальности ведет к возникновению взаимной корреляции между факторами и, по-видимому, расширяет исходное множество до­ пущений. Если факторы оказываются коррелированными, то в силу существования взаимодействия между парами перемен­ ных и парами факторов соотношения между факторами и ис­ ходными переменными оказываются значительно более слож­ ными, чем предполагает модель. Наличие взаимной корреляции наводит на мысль и о том, что, вероятно, неортогональные фак­ торы сами по себе являются не чем иным, как результатом кор­ реляции между некоторыми «суперфакторами», еще более глу­ боко скрытыми от прямого наблюдения.

Первоначально факторный анализ предназначался для объ­ яснений взаимных связей между большим количеством перемен­ ных при небольшом числе факторов. Это сопровождалось тео­ рией, которая позволяла предсказать природу факторов, что об­ легчало их интерпретацию. Однако когда факторный анализ стал применяться в областях, в которых заранее никакой тео­ рии не существовало, то оказалось необходимым объяснить смысл получаемых факторов. Это не всегда возможно, так как теоретические основы факторного анализа еще слишком мало развиты для того, чтобы позволить во всех случаях давать адекватное объяснение явления. Однако, вместо того чтобы при­ знать свое поражение, факторный анализ рекомендует неортого­ нальные схемы вращения, которые позволяют выразить факторы в терминах исходных переменных. Таким образом, исследова­ тель проходит полный цикл от переменных к факторам (с целью сжатия данных) и затем снова к переменным (для интерпрета­ ции факторов).

Сказанное нельзя считать подтверждением того, что методы неортогональных факторов бесполезны: используя их, в некото­ рых случаях удалось получить хорошие результаты. Однако, если обычные методы факторного анализа дают плохие резуль­ таты, новичок приходит к выводу о том, что они неприменимы к данной задаче или что о причинных связях между перемен­ ными известно слишком мало для того, чтобы можно было дать

интерпретацию факторов. Неортогональные решения вносят эле­ мент субъективности в уже и без того довольно произвольное решение задачи, которого надо тщательно избегать всем, за исключением экспертов. Интересующийся читатель может обра­ титься к книге Хармана [10] и ранней работе Тэрстоуна [28].

Т а б л и ц а 7.27

Восемь переменных, измеренных на образцах угля из основных угольных месторождении США

Тип

Xj <руты X,

Х3,%

х,,%

Х .,%

у г л я

L

7,3

1,22

28,0

44,1

35,6

 

12,2

1,35

17,3

43,4

37,8

 

3,4

1,26

23,8

32,6

39,3

SB

3,6

1,15

27,6

40,1

38,8

 

2,2

1,32

16,9

23,4

42,4

 

4,8

1,36

28,3

27,6

40,7

 

5,8

1,95

2,7

2,8

91,5

 

4,9

1,35

16,5

24,3

43,7

 

5,6

1,37

14,3

20,6

45,5

LB

3,5

■ 1,41

21,4

18,3

46,3

 

7,0

1,46

25,3

11,6

47,0

 

6,5

1,43

16,5

8,5

48,2

MB

3,4

1,38

6,5

7,4

50,6

 

5,0

1,45

28,9

5,0

54,2

 

6,3

1,47

14,6

4,3

58,7

 

3,2

1,50

18,2

3,2

64,6

НВ

2,2

1,43

23,5

4,6

60,3

 

2,8

1,57

9,9

2,9

71,8

 

3,8

1,46

8,8

5,4

68,2

SA

7,5

1,53

16,8

8,7

65,0

 

6,3

1,58

22,4

6,0

83,8

 

2,3

1,58

16,5

4,5

80,1

А

3,8

1,49

15,3

3,9

86,5

 

14,3

2,03

12,5

3,2

94,8

 

7,6

2,13

9,8

2,2

95,3

 

2,5

2,06

14,6

4,0

90,8

* j ><

20,3

18,8

28,1

21,1

34,2

31,7

5,7

32,0

33,9

35,4

41,4

43,3

42,0

40,8

37,0

32,2

35,1

25,3

26,4

26,3

10,2

15,4

9,6

2,0

2,5

5,2

х7,%

х 8

0,4

6 220

0,3

7 400

0,2

5 800

0,3

7 360

0,7

9 720

0,8

11 480

1,3

14510

1,2

11 260

0,5

9 280

1,0

10 620

1,4

12 880

0,9

11 870

0,8

12 430

1,5

13 880

1,3

15 200

0,8

15 160

0,9

14 760

1,3

15 380

0,7

14 720

1,5

14 930

1,2

14 880

0,6

15 020

0,3

14 640

1,1

14 440

0,8

14 270

1,5

15 000

X j — м о щ н о с ть п л а ста , ф уты ;

Х 2 — у д е л ь н ы й

вес; Х 3 — зол ьн о сть, %;

Х 4 —

в л а ж н о с ть ,

%;

Х 5 — тв е р д ы й

угл ер о д ,

%;

Х в — л етуч есть,

%;

Х 7 —

се р н и сто сть,

%;

Х 8 —

отн о ш е н и е теп л о тв ор н о й способности, к

весу, ф ун ты .

Т и п ы

угля:

L — буры й; S B — очень сл а б о б и ту м н н о зн ы й ; L B

с л а б о б и т у ­

м и нозн ы й ;

М В

— ср ед н е б и ту м и н о зн ы й ; Н В

— в ы со к о б и ту м и н о зн ы й ;

S A —

с у б а н тр а ц и т; А — а н тр а ц и т .

 

 

 

 

 

 

Табл. 7.27 содержит измерения, сделанные на 25 образцах угля из основных угольных месторождений США. Восемь вы­ бранных переменных характеризуют экономические показатели

35*

угля. Факторный анализ позволяет привести эти переменные к нескольким факторам, позволяющим контролировать каче­ ство и дать классификацию углей. Программа 7.12, FACTOR, предназначена для выполнения факторного анализа и вращения факторов по методу Кайзера. В ней для вычисления главных компонент используется подпрограммаEIGENJ (программа 4.10). Некоторое число компонент сохраняется и объявляется факторами. Далее, используя подпрограмму VARMAX (про­ грамма 7.13), основная программа выполняет вращение факторов

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с

с,

с

с

с,

с

с

PR O G R A M

7 . 1 2

 

 

 

 

 

 

 

 

 

 

 

F A C T O R A N A L Y S I S

 

 

 

 

 

 

 

 

 

 

T H E P R O G R A M A C C E P T S A N

N

B Y

N D A T A

M A T R I X ’ WHERE

N

I S T H E

 

NU MBER

O F

O B S E R V A T I O N S

A N D

M I S

T H E

NU M B E R

O F V A R I A B L E S .

I F -

T H E F I R S T O P T I O N I S I , A N M B Y M S I M I L A R I T Y M A T R I X B E TW E E N

C O L U M N S W I L L BE C O M P U T E D ! I F T H I S O P T I O N I S 2 , A N N B Y N

 

S I M I L A R I T Y

M A T R I X

B E T W E E N

ROWS W I L L

B E C O M P U T E D .

 

 

I F T H E O P T I O N I S 0 , T H E PR O G R A M C A L L S E X I T , A S T H E PR O G R A M

L O O P S B A C K A N D R E S T A R T S A F T E R C O M P L E T I O N O F A N A N A L Y S I S .

 

I F T H E S E C O N D O P T I O N I S I , A S T A N D A R D I Z E D C O V A R I A N C E

 

( C O R R E L A T I O N ) M A T R I X I S C R E A T E D .

I F T H I S O P T I O N I S 2 , A

 

C O S I N E T H E T A S I M I L A R I T Y M A T R I X I S C R E A T E D .

T H E T H I R D O P T I O N

S P E C I F I E S T H E NU M B E R O F F A C T O R S T O BE R E T A I N E D .

 

 

 

T O P E R F O R M

R - M O D E

A N A L Y S I S ,

S E L E C T

I O N O P T I O N

ONE

A N D 1

ON

O P T I O N T W O .

T O P E R F O R M Q - M O D E F A C T O R A N A L Y S I S , S E L E C T 2

 

ON O P T I O N O N E A N D 2 ON O P T I O N T W O .

 

 

 

 

 

F O R M A T O F C O N T R O L C A R D

 

 

 

 

 

 

 

 

 

C O L .

1 - 3

0 -

END

O F

JO B

 

 

 

 

 

 

 

 

 

1 * DO N O T T R A N S P O S E D A T A M A T R I X

 

 

 

 

 

 

2 = T R A N S P O S E D A T A M A T R I X

 

 

 

 

C O L . 4 - 6

I = C A L C U L A T E C O R R E L A T I O N M A T R I X

 

 

 

 

 

 

2 = C A L C U L A T E C O S I N E T H E T A M A T R I X

 

 

C O L .

7 - 9

NUMBER

O F

F A C T O R S

D E S I R E D

 

 

 

 

S U B R O U T I N E S N E E D E D A R E R E A D M , P R I N T M , S U B M , M M U L T , M I N V , S T A N D , R C O E F , C T H E T A , E I G E N J , A N D V A R M A X .

D I M E N S I O N X ( 5 0 , 5 0 ) , F S C O R E ( 5 0 , 5 0 )

D I M E N S I O N A l ( 5 0 , 5 0 ) , A 2 ( 5 0 , 5 0 ) , A 3 ( 5 ( 5 , 5 0 )

M D * 5 0

N D = 5 0

M M = 5 0

R E A D C O N T R O L C A R D

I R E A D ( 5 , 1 COO) I T R A N , I S I M , L

I F ( I T R A N . L E . 0 ) C A L L E X I T

R E A D A N D P R I N T I N P U T D A T A M A T R I X

C A L L R E A D M ( X , N , M , N D , M D )

C A L L P R I N T M ( X , N , M , N D , M D )

W R I T E ( 6 , 2 0 0 1 )

I F C O R R E L A T I O N M A T R I X I S T O B E C A L C U L A T E D

S T A N D A R D I Z E I N P U T D A T A M A T R I X A N D P R I N T S T A N D A R D I Z E D D A T A

IF ( I S I M . N E . I ) GO T O 2

О О О

. . .

C A U L S T A N D ( X , N , M , N D , M D )

C A L L P R I N T M ( X , N , М , N D , M D)

W R I T E ( 6 , 2 0 0 8 )

T R A N S P O S E D A T A M A T R I X ( I F R E Q U I R E D )

О О О

2 I F ( I T R A N . N E . 2 ) GO TO 3 M T *M

I F ( N . G T . M ) M T - N

DO

1 1 0

1 * 1 , MT

DO

1 1 0

J » I , M T

X S * X ( I , J )

X( I , J ) - X ( J , I )

X( J , I ) » X S

11 0 C O N T I N U E

MT*M

M- N

N» M T

. . . C A L C U L A T E A N D P R I N T S I M I L A R I T Y M A T R I X

О О О

3 I F

( I S I M

. E Q .

I ) C A L L

R C O E F ( X , N , M , N D , M D , A 1 ,M M )

I F

( I S I M

. E Q .

2 ) C A L L

C T H E T A ( X , N , M , N D , M D , A 1 , M M )

C A L L P R I N T M ( A I , M , M , M M , M M )

W R I T E ( 6 , 2 0 0 2 )

. . . S A V E C O R R E L A T I O N M A T R I X

О О О

111

. . .

I F ( I S I M . N E . I ) GO T O 4

DO

111

1 * 1 , M

DO

I I I

J * l ,M

A 3 ( I , J ) * A I ( I , J )

C O N T I N U E

C A L C U L A T E E I G E N V A L U E S A N D E I G E N V E C T O R S

4 C A L L E I G E N J ( A 1 , A 2 , M , M M )

О О О О

. . .

MOVE E I G E N V A L U E S C A L C U L A T E S U M . O F

T O F I R S T COLUMN E I G E N V A L U E S

О О О

S U M E = 0 . 0

DO 1 0 0 1 * 1 , M

A I ( I , 1 ) * A I ( I , I )

S U M E * S U M E + A 1 ( 1 , 1 ) 1 0 0 C O N T I N U E

. . . C A L C U L A T E P E R C E N T C O N T R I B U T I O N O F EACH E I G E N V A L U E f

S U M E E = 0 . 0

DO 101 1 * 1 , M

A I ( I , 2 ) * A 1 ( 1 , I ) * IO O . O / S U M E S U M E E * S U M E E + A 1 ( 1 , 1 )

A l ( I , 3 ) * S U M E E * 1 O O . O / S U M E 101 C O N T I N U E

О О О

. . .

P R I N T E I G E N V A L U E S AND P E R C E N T C O N T R I B U T I O N

О П О О

. . .

C A U L P R I N T M ( A I , M , 3 , M M , M M )

W R I T E ( 6 , 2 0 0 3 )

P R I N T E IG E N V E C T O R S

N O T E . . . E I G E N V E C T O R S A RE S T O R E D C O L U M N W IS E

C A L L P R I N T M ( A 2 , M , M , MM, MM)

С

 

 

 

C . . .

C A L C U L A T E A N D P R I N T F A C T Q R L O A D I N G S

C

 

 

 

 

DO

1 0 2

1 * 1 ,M

 

DO

1 0 2

J * I , L

 

A 2 ( I , J ) * A 2 ( I , J ) * S O R T ( A I ( J , I ) )

1 0 2 C O N T I N U E

 

C A L L P R I N T M ( A 2 , M , M , M M , M M )

 

W R I T E ( 6 , 2 0 0 5 )

C

 

 

 

C . . .

C A L C U L A T E A N D P R I N T R E P R O D U C E D C O R R E L A T I O N M A T R I X A N D

C

R E S I D U A L C O R R E L A T I O N M A T R I X

C

 

 

 

 

I F ( I S I M . N E . 1 ) GO T O 5

 

DO

I Г 2

1 * 1 , M

 

DO

112

J * I , M

 

DET=0.0

 

 

DO

113

K = I , L

D E T = D E T + A 2 ( I , K ) * A 2 ( J , K )

1 1 3 C O N T I N U E

A

I ( I , J ) = D E T

A

I ( J , I ) = D E T

11 2 C O N T I N U E

 

C A L L P R I N T M C A 1 , M , M , M M , M M )

 

W R I T E ( 6 , 2 0 1 0 )

 

C A L L S U B M ( A 3 , A I , A 3 , M , M , M M , M M )

 

C A L L P R I N T M ( A 3 , M , M , M M , M M )

 

W R I T E ( 6 , 2 0 1 I )

C

 

 

 

C . . .

C A L C U L A T E A N D P R I N T F A C T O R S C O R E S

C

 

 

 

5

DO

1 0 3

1 * 1 , L

 

DO

1 0 3

J - I , L

 

D E T = 0 . 0

 

 

DO

1 0 4

К * I , M

D E T * D E T + A 2 ( K , 1 ) * A 2 ( K , J )

1 0 4 C O N T I N U E

A 3 ( I , J ) * = D E T

A 3 ( J , I ) * D E T

1 0 3 C O N T I N U E

 

C A L L M I N V ( A 3 , A I , L , M M , D E T )

 

C A L L M M U L T ( A 2 , A 1 , А З , M , L , L , MM, MM, MM, MM, MM, MM)

 

C A L L M M U L T C X , A 3 , F S C O R E , N , M , L , N D , M D , M M , M M , N D , M D )

 

C A L L P R I N T M ( F S C O R E , N , L , N D , M D )

 

W R I T E ( 6 , 2 0 0 7 )

C

 

C . . .

R O T A T E F A C T O R M A T R I X

C

 

 

C A L L V A R M A X ( A 2 , M , L , M M )

C

 

C . . .

P R I N T R O T A T E D F A C T O R M A T R I X -

C

 

C A L L P R I N T M ( A 2 , M , L , M M , M M )

W R I T E ( 6 , 2 0 0 6 )

C

C . . . C A L C U L A T E A N D P R I N T V A R I M A X F A C T O R S C O R E S C

DO

1 0 5

1 * 1 , L

DO

1 0 5

J ° I , L

D E T = 0 . 0

 

DO

1 0 6

K * I , M

D E T * D E T + A 2 ( К, I ) * A 2 ( K , J )

1 0 6 C O N T I N U E

А3 ( I , J ) = D E T

А3 ( J , I ) = D E T 1 0 5 C O N T I N U E

 

C A L L M I N V ( А З , А I , L , M M , D E T )

 

 

C A L L

M M U L T ( A 2 , A I , А З , M , L , L , MM, MM, MM, MM, MM, MM)

 

C A L L M M U L T ( X , A 3 , F S C O R E , N , M , L , N D , M D , M M , M M , N D , M D )

 

C A L L P R I N T M ( F S C O R E , N , L , N D , M D )

 

W R I T E ( 6 , 2 0 0 9 )

 

 

 

CO T O

I

 

 

1 0 0 0 F O R M A T ( 3 1 3 )

 

 

2 0 0 1

FORM AT ( I H 0 . 4 X , ' I N P U T

D A T A

M A T R I X - ' , I X ,

I

'C O L U M N S = V A R I A B L E S ,

ROWS

= O B S E R V A T I O N S ' )

' 2 0 0 2 F O R M A T ( i Н О , 4 X , ' S I M I L A R I T Y M A T R I X ' )

2 0 0 3 FO R M A T ( I Н О , 4 X , 'C O L U M N I * E l G E N V A L U E S , ' , 2 X ,

1 'C O L U M N 2 = P E R C E N T O F T R A C E ' , / ,

2 5 X , ' C O L U M N 3 = C U M U L A T I V E P E R C E N T O F T R A C E ' )

2 0 0 4 F O R M A T ( 1 H 0 , 4 X , ' P R I N C I P A L A X I S M A T R I X - ' , I X ,

 

I

'C O L U M N S

=

E I G E N V E C T O R S ,

ROWS

= V A R I A B L E S ' )

2 0 0 5 F O R M A T ( I Н О , 4 X , ' F A C T O R L O A D I N G S - ' , I X ,

 

I

'C O L U M N S

=

F A C T O R S ,

ROWS

=

V A R I A B L E S ' )

2 0 0 6

F O R M A T ( I Н О , 4 X , ' R O T A T E D F A C T O R M A T R I X - ' , I X .

 

I

' C O L U M N S

=

F A C T O R S ,

ROWS

=

V A R I A B L E S ' )

2 0 0 7

 

FORM AT ( I

Н О , 4 X , ' F A C T O R

S C O R E S

- ' , 1 X ,

 

I

'C O L U M N S

=

F A C T O R S ,

ROWS

=

O B S E R V A T I O N S ' )

2 0 0 8

F O R M A T ( I Н О , 4 X , ' S T A N D A R D I Z E D I N P U T D A T A M A T R I X - ' , ! X ,

 

I

' C O L U M N S

=

V A R I A B L E S .

ROWS

= O B S E R V A T I O N S ' )

2 0 0 9 F O R M A T ( I Н О , 4 X , ' V A R I M A X F A C T O R S C O R E S - ' , I X ,

 

I

'C O L U M N S

=

F A C T O R S ,

ROWS

=

O B S E R V A T I O N S ' )

2 0 1 0 F O R M A T ( I H 0 , 4 X , ' R E P R O D U C E D C O R R E L A T I O N M A T R I X ' ) 2 0 1 1 FO R M A T ( I H 0 . 4 X , ' R E S I D U A L C O R R E L A T I O N M A T R I X ' )

END

Программа 7.12. FACTOR

с целью определения положения, в котором дисперсия квад­ ратов нагрузок максимальна. Программа предусматривает вы­ дачу разнообразных результатов, что позволяет проследить все этапы вычислений. Можно провести поучительный эксперимент, получив только два фактора для данных по углям и сделав по­ пытку их интерпретации. При этом оказывается, что графиче­ ское изображение факторных значений по факторам I и II дает интуитивно предсказуемую группу точек, а сами факторы можно

интерпретировать как «энергетическую

ценность»,

или «тип».

Повторите вычисления,

извлекая

и

вращая

три

фактора.

С

PROGRAM 7 . 1 3

 

 

 

 

С

 

 

 

 

 

 

С

S U B R O U T I N E

Т О PERFORM A

V A R IM A X R O T A T I O N

ON

 

С

F A C T O R L O A D I N G M A T R I X

 

 

 

 

C

 

 

 

 

 

 

 

S U B R O U T I N E V A R M A X ( F , M , L , M 1 )

 

 

 

 

D I M E N S I O N F ( M 1 , M I ) , H ( I 0 0 )

 

 

 

C

 

 

 

 

 

 

C . . .

I N I T I A L I Z E

 

 

 

 

 

C

 

 

 

 

 

 

 

W R I T E ( 6 , 2 0 0 1 )

 

 

 

 

C

C . . .

SQRT2 = I . 0 /S Q R T (2 .0)

XM=M

L I = L - I

N I T = - I

N C M =0

N O R M A L I Z E ROWS O F F A C T O R . M A T R I X