title 'oblique models'.

compute a1=0.6.   /*その因子 */
compute a3=0.3.   /*一般因子 */
compute a2=1-a1-a3.
compute w1=sqrt(a1).
compute w3=sqrt(a3).
compute w2=sqrt(a2).
compute v1=w1*f1+w3*f5+w2*e1.
compute v2=w1*f1+w3*f5+w2*e2.
compute v3=w1*f1+w3*f5+w2*e3.
compute v4=w1*f1+w3*f5+w2*e4.
compute v5=w1*f1+w3*f5+w2*e5.

compute a1=0.5.   /*その因子 */
compute a3=0.3.   /*一般因子 */
compute a2=1-a1-a3.
compute w1=sqrt(a1).
compute w3=sqrt(a3).
compute w2=sqrt(a2).

compute v6=w1*f2+w3*f5+w2*e6.
compute v7=w1*f2+w3*f5+w2*e7.
compute v8=w1*f2+w3*f5+w2*e8.
compute v9=w1*f2+w3*f5+w2*e9.
compute v10=w1*f2+w3*f5+w2*e10.

compute a1=0.4.   /*その因子 */
compute a3=0.3.   /*一般因子 */
compute a2=1-a1-a3.
compute w1=sqrt(a1).
compute w3=sqrt(a3).
compute w2=sqrt(a2).

compute v11=w1*f3+w3*f5+w2*e11.
compute v12=w1*f3+w3*f5+w2*e12.
compute v13=w1*f3+w3*f5+w2*e13.
compute v14=w1*f3+w3*f5+w2*e14.
compute v15=w1*f3+w3*f5+w2*e15.

compute a1=0.3.   /*その因子 */
compute a3=0.3.   /*一般因子 */
compute a2=1-a1-a3.
compute w1=sqrt(a1).
compute w3=sqrt(a3).
compute w2=sqrt(a2).

compute v16=w1*f4+w3*f5+w2*e16.
compute v17=w1*f4+w3*f5+w2*e17.
compute v18=w1*f4+w3*f5+w2*e18.
compute v19=w1*f4+w3*f5+w2*e19.
compute v20=w1*f4+w3*f5+w2*e20.
exec.

title 'slide 17-22 因子分析　斜交モデル'.

FACTOR
  /VARIABLES v1 to v10  /MISSING LISTWISE /ANALYSIS v1  to v10
  /PRINT correlation INITIAL EXTRACTION ROTATION
  /PLOT eigen
  /CRITERIA MINEIGEN(1) ITERATE(25)
  /EXTRACTION paf
  /CRITERIA ITERATE(25)
  /ROTATION oblimin(0).

title 'slide 24,26 主成分分析　斜交モデル'.

FACTOR
  /VARIABLES v1 to v10  /MISSING LISTWISE /ANALYSIS v1  to v10
  /PRINT INITIAL EXTRACTION ROTATION
  /CRITERIA MINEIGEN(1) ITERATE(25)
  /EXTRACTION pc
  /CRITERIA ITERATE(25)
  /ROTATION oblimin(0).

title 'slide 31 主成分分析　４主成分'.
FACTOR
  /VARIABLES v1 to v20   /ANALYSIS v1 to v20
  /PRINT INITIAL EXTRACTION
  /PLOT eigen
  /CRITERIA MINEIGEN(1) ITERATE(25)
  /EXTRACTION pc .

title 'slide 34 因子分析 ２因子 varimax 回転'.

FACTOR
  /VARIABLES v1 to v10  /MISSING LISTWISE /ANALYSIS v1  to v10
  /PRINT correlation INITIAL EXTRACTION ROTATION
  /PLOT eigen
  /CRITERIA MINEIGEN(1) ITERATE(25)
  /EXTRACTION ml
  /CRITERIA ITERATE(25)
  /ROTATION varimax.

title 'slide 35 因子分析 4因子 varimax 回転（直交回転）'.

FACTOR
  /VARIABLES v1 to v20  /MISSING LISTWISE /ANALYSIS v1 to v3 v6 to v8 v11 to v13 v16 to v18
  /PRINT correlation INITIAL EXTRACTION ROTATION
  /CRITERIA MINEIGEN(1) ITERATE(25)
  /EXTRACTION ml
  /CRITERIA ITERATE(25)
  /ROTATION varimax.

title 'slide 35 因子分析 4因子 oblimin 回転（斜交回転）'.

FACTOR
  /VARIABLES v1 to v20  /MISSING LISTWISE /ANALYSIS v1 to v3 v6 to v8 v11 to v13 v16 to v18
  /PRINT correlation INITIAL EXTRACTION ROTATION
  /PLOT eigen
  /CRITERIA MINEIGEN(1) ITERATE(25)
  /EXTRACTION ml
  /CRITERIA ITERATE(25)
  /ROTATION oblimin(0).