1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
* Сформируем данные для наглядности.
NEW file.
INPUT PROGRAM.
VECTOR cq1_(20F8.2) cw(7F8.2).
LOOP resp=1 TO 50.
	COMPUTE cicel=TRUNC(UNIFORM(10)).
	COMPUTE CPI=1+UNIFORM(.1).
	LOOP #cnt=1 TO 20.
		COMPUTE cq1_(#cnt)=UNIFORM(1).
	END LOOP.
	LOOP #cnt=1 TO 7.
		COMPUTE cw(#cnt)=UNIFORM(1).
	END LOOP.
	END CASE.

END LOOP.
END FILE.
END INPUT PROGRAM.
EXECUTE.
SAVE OUTFILE='temp.sav'.

FACTOR
/MATRIX=OUT (FAC=*)
/VARIABLES cq1_1 to cq1_20
/MISSING LISTWISE
/ANALYSIS cq1_1 to cq1_20
/Print UNIVARIATE CORRELATION EXTRACTION ROTATION
/FORMAT Sort
/CRITERIA FACTORS 4 ITERATE(25)
/EXTRACTION PC
/CRITERIA ITERATE(25)
/ROTATION VARIMAX
/METHOD=CORRELATION
/PRINT=extraction rotation.