Below is a sample SPSS program for scoring the CSIE.

* PA = +A, BC = +A-C, DE = -C, FG = -A-C,

  HI = -A, JK = -A+C, LM = +C, NO = +A+C.

* Compute raw scores (each raw octant score = mean of 4 items).

COMPUTE NO = (01+09+17+25)/4.

COMPUTE PA = (04+12+20+28)/4.

COMPUTE BC = (07+15+23+31)/4.

COMPUTE DE = (02+10+18+26)/4.

COMPUTE FG = (05+13+21+29)/4.

COMPUTE HI = (08+16+24+32)/4.

COMPUTE JK = (03+11+19+27)/4.

COMPUTE LM = (06+14+22+30)/4.

COMPUTE csiemean = (PA+BC+DE+FG+HI+JK+LM+NO)/8.

* Compute scores for the four "cardinal" unipolar vectors.

COMPUTE rawC = .414*(LM + (.707 * (JK+NO))).

COMPUTE rawA = .414*(PA + (.707 * (BC+NO))).

COMPUTE rawunC= .414*(DE + (.707 * (BC+FG))).

COMPUTE rawunA= .414*(HI + (.707 * (JK+FG))).

* Compute scores for the traditional bipolar X (agentic) and Y (communal) vectors.

COMPUTE rawY = rawA - rawunA.

COMPUTE rawX = rawC - rawunC.

* compute ipsative octant scores.

COMPUTE iPA=(PA-csiemean).

COMPUTE iBC=(BC-csiemean).

COMPUTE iDE=(DE-csiemean).

COMPUTE iFG=(FG-csiemean).

COMPUTE iHI=(HI-csiemean).

COMPUTE iJK=(JK-csiemean).

COMPUTE iLM=(LM-csiemean).

COMPUTE iNO=(NO-csiemean).