SPSS Syntax for Scoring
Personality Identity Estimator (PIE)

To use this program, name the variables for PIE as PIE1 through PIE12 as follows:
E-I scale PIE1, PIE2, PIE3
S-N scale PIE4, PIE5, PIE6
T-F scale PIE7, PIE8, PIE9
J-P scale PIE10, PIE11, PIE12

This syntax produces the categorical label for each case as follows:
value labels ei 1 "Extraversion" 2 "Introversion"/
sn 1 "Sensing" 2 "Intuition"/
tf 1 "Thinking" 2 "Feeling"/
jp 1 "Judging" 2 "Perceiving".

---------------------------------------------------------------------------------

COMMENT Scoring for PIE.
recode PIE1 to PIE12 (sysmis = 0).
recode PIE1 to PIE12  (0 = 0) (1 = 1) (2 = 2).

if (PIE1 = 1) PIE1a = 1.
if (PIE1 = 2) PIE1a = 0.
if (PIE1 = 1) PIE1b = 0.
if (PIE1 = 2) PIE1b = 1.

if (PIE2 = 1) PIE2a = 1.
if (PIE2 = 2) PIE2a = 0.
if (PIE2 = 1) PIE2b = 0.
if (PIE2 = 2) PIE2b = 1.

if (PIE3 = 1) PIE3a = 1.
if (PIE3 = 2) PIE3a = 0.
if (PIE3 = 1) PIE3b = 0.
if (PIE3 = 2) PIE3b = 1.

if (PIE4 = 1) PIE4a = 1.
if (PIE4 = 2) PIE4a = 0.
if (PIE4 = 1) PIE4b = 0.
if (PIE4 = 2) PIE4b = 1.

if (PIE5 = 1) PIE5a = 1.
if (PIE5 = 2) PIE5a = 0.
if (PIE5 = 1) PIE5b = 0.
if (PIE5 = 2) PIE5b = 1.

if (PIE6 = 1) PIE6a = 1.
if (PIE6 = 2) PIE6a = 0.
if (PIE6 = 1) PIE6b = 0.
if (PIE6 = 2) PIE6b = 1.


if (PIE7 = 1) PIE7a = 1.
if (PIE7 = 2) PIE7a = 0.
if (PIE7 = 1) PIE7b = 0.
if (PIE7 = 2) PIE7b = 1.

if (PIE8 = 1) PIE8a = 1.
if (PIE8 = 2) PIE8a = 0.
if (PIE8 = 1) PIE8b = 0.
if (PIE8 = 2) PIE8b = 1.

if (PIE9 = 1) PIE9a = 1.
if (PIE9 = 2) PIE9a = 0.
if (PIE9 = 1) PIE9b = 0.
if (PIE9 = 2) PIE9b = 1.

if (PIE10 = 1) PIE10a = 1.
if (PIE10 = 2) PIE10a = 0.
if (PIE10 = 1) PIE10b = 0.
if (PIE10 = 2) PIE10b = 1.

if (PIE11 = 1) PIE11a = 1.
if (PIE11 = 2) PIE11a = 0.
if (PIE11 = 1) PIE11b = 0.
if (PIE11 = 2) PIE11b = 1.

if (PIE12 = 1) PIE12a = 1.
if (PIE12 = 2) PIE12a = 0.
if (PIE12 = 1) PIE12b = 0.
if (PIE12 = 2) PIE12b = 1.

Comment To Eliminate Missing Values for Computing Scores.
if (PIE1 = 0) PIE1a = 0.
if (PIE2 = 0) PIE2a = 0.
if (PIE3 = 0) PIE3a = 0.
if (PIE4 = 0) PIE4a = 0.
if (PIE5 = 0) PIE5a = 0.
if (PIE6 = 0) PIE6a = 0.
if (PIE7 = 0) PIE7a = 0.
if (PIE8 = 0) PIE8a = 0.
if (PIE9 = 0) PIE9a = 0.
if (PIE10 = 0) PIE10a = 0.
if (PIE11 = 0) PIE11a = 0.
if (PIE12 = 0) PIE12a = 0.

if (PIE1 = 0) PIE1b = 0.
if (PIE2 = 0) PIE2b = 0.
if (PIE3 = 0) PIE3b = 0.
if (PIE4 = 0) PIE4b = 0.
if (PIE5 = 0) PIE5b = 0.
if (PIE6 = 0) PIE6b = 0.
if (PIE7 = 0) PIE7b = 0.
if (PIE8 = 0) PIE8b = 0.
if (PIE9 = 0) PIE9b = 0.
if (PIE10 = 0) PIE10b = 0.
if (PIE11 = 0) PIE11b = 0.
if (PIE12 = 0) PIE12b = 0.

COMMENT Scoring for EXTRAVERSION and INTROVERSION Scale.
compute ext = PIE1a + PIE2a + PIE3a.
compute int = PIE1b + PIE2b + PIE3b.

COMMENT Scoring for SENSING and INTUITION Scale.
compute sen = PIE4a + PIE5a + PIE6a.
compute itu = PIE4b + PIE5b + PIE6b.

COMMENT Scoring for THINKING and FEELING Scale.
compute thi = PIE7a + PIE8a + PIE9a.
compute fee = PIE7b + PIE8b + PIE9b.

COMMENT Scoring for JUDGMENT and PERCEPTION Scale.
compute jud = PIE10a + PIE11a + PIE12a.
compute per = PIE10b + PIE11b + PIE12b.

COMMENT Assignment to Dimension.
if (ext > int) ei = 1.
if (ext < int) ei = 2.

if (sen > itu) sn = 1.
if (sen < itu) sn = 2.

if (thi > fee) tf = 1.
if (thi < fee) tf = 2.

if (jud > per) jp = 1.
if (jud < per) jp = 2.

value labels ei 1 "Extraversion" 2 "Introversion"/
sn 1 "Sensing" 2 "Intuition"/
tf 1 "Thinking" 2 "Feeling"/
jp 1 "Judging" 2 "Perceiving".