CSIE Scoring - Example SPSS Code

* Compute raw CSIE octant scores.
* Item #s correspond to the order of the items in the standard CSIE form.
* PA = Agentic, BC = Agentic & Uncommunal, DE = Uncommunal, * FG = Unagentic & Uncommunal,
* HI = Unagentic, JK = Unagentic & Communal, LM = Communal, NO = Agentic & Communal.
COMPUTE PA = (item04+item12+item20+item28)/4.
COMPUTE BC = (item07+item15+item23+item31)/4.
COMPUTE DE = (item02+item10+item18+item26)/4.
COMPUTE FG = (item05+item13+item21+item29)/4.
COMPUTE HI = (item08+item16+item24+item32)/4.
COMPUTE JK = (item03+item11+item19+item27)/4.
COMPUTE LM = (item06+item14+item22+item30)/4.
COMPUTE NO = (item01+item09+item17+item25)/4.

* Compute scores for the overall bipolar X (communal) and Y (agentic) vectors.
COMPUTE AGENTIC  = 0.25*(PA-HI+(.707*(BC+NO-FG-JK))).
COMPUTE COMMUNAL = 0.25*(LM-DE+(.707*(NO+JK-FG-BC))).

* The above commands are all you need to do the basic scoring.
* The code below offer examples of how to compute additional scores or indices.

** "Structural Summary" Parameters ** .
* Compute "vector length" or "amplitude" (AMP).
COMPUTE AMP = SQRT((AGENTIC**2)+(COMMUNAL**2)).

* Compute overall mean or "response elevation" (ELE).
COMPUTE ELE = MEAN(PA,BC,DE,FG,HI,JK,LM,NO).

* Compute Circumplex Goodness-of-Fit (R-squared).
COMPUTE R2 =(4*(AMP**2)/((VARIANCE(PA,BC,DE,FG,HI,JK,LM,NO))*7)).

* Compute Angular Displacement or Circumplex Angle (ANG).
COMPUTE Slope = AGENTIC/COMMUNAL.
IF (AGENTIC>0 AND COMMUNAL>0) ANG = 000+atan(Slope)*(180/3.14159).
IF (AGENTIC>0 AND COMMUNAL<0) ANG = 180+atan(Slope)*(180/3.14159).
IF (AGENTIC<0 AND COMMUNAL>0) ANG = 360+atan(Slope)*(180/3.14159).
IF (AGENTIC<0 AND COMMUNAL<0) ANG = 180+atan(Slope)*(180/3.14159).

** Compute ipsative scores.
COMPUTE iPA=(PA-ELE).
COMPUTE iBC=(BC-ELE).
COMPUTE iDE=(DE-ELE).
COMPUTE iFG=(FG-ELE).
COMPUTE iHI=(HI-ELE).
COMPUTE iJK=(JK-ELE).
COMPUTE iLM=(LM-ELE).
COMPUTE iNO=(NO-ELE).