SET WIDTH 80

*3 x 3 Factorial
*factor A = # similar attitude people in group (0, 2, 4)
*factor B = initial attitude (Con, Neutral, Pro)
INPUT PROGRAM
COMP #la = 3              /* num levels of factor a
COMP #lb = 3              /* num levels of factor b
COMP #nc = 9              /* num subjects per cell
COMP #na = #nc*#lb        /* num subjects per level of a
COMP #ns = #la*#lb*#nc    /* total n
LOOP obs = 1 TO #ns
COMPUTE a = TRUNC((obs - 1)/#na) + 1
COMPUTE b = MOD(TRUNC((obs - 1)/#nc), #lb) + 1
COMPUTE s = MOD((obs - 1), #nc) + 1
END CASE
END LOOP
END FILE
END INPUT PROGRAM
RECODE a (1 = -1) (2 =  0) (3 = +1) INTO alin
RECODE a (1 = -1) (2 = +2) (3 = -1) INTO aqua
RECODE b (1 = -1) (2 =  0) (3 = +1) INTO blin
RECODE b (1 = -1) (2 = +2) (3 = -1) INTO bqua

COMPUTE y = 0 + RND( 5*(s-5.0) + (blin*(3*a)**2) )