program define sturng3
#delimit ;
if `1' { matrix StuRng31 = (
   .36647734, .01931003, -.00544452, .00034961 \
   .36443353, .01738897, -.00527242, .0003536 \
   .36235833, .01554957, -.00515926, .00036332 \
   .36023647, .01381253, -.00511222, .00037881 \
   .35806087, .01218656, -.00513245, .00039907 \
   .35580894, .01069811, -.00522615, .00042323 \
   .35357836, .00920392, -.00532841, .00044147)
};
else { matrix StuRng30 = (
   .65982991, .12536336, -.03587623, .00285515 \
   .50453687, .09595738, -.02429232, .00173867 \
   .44753805, .07748408, -.01861958, .00126062 \
   .42045221, .06455939, -.01507354, .0009818 \
   .40558559, .05468621, -.01247437, .00077451 \
   .39611936, .04752865, -.01073286, .00064553 \
   .38967085, .04204919, -.00947245, .00055641 \
   .38499537, .03777705, -.00854549, .00049462 \
   .38144767, .03437941, -.00785018, .0004513 \
   .37866247, .03162486, -.00731763, .00042044 \
   .37641409, .02935737, -.00690357, .00039834 \
   .37455976, .02746331, -.00657656, .0003824 \
   .37300059, .02586416, -.006316, .00037101 \
   .37166864, .0245004, -.00610649, .00036295 \
   .37051627, .02332607, -.00593649, .00035738 \
   .36950928, .02230566, -.00579735, .00035362 \
   .36862028, .02141289, -.00568289, .00035126 \
   .36782804, .02062738, -.00558851, .00034999 \
   .36711827, .01993069, -.00550997, .00034949 \
   .36647734, .01931003, -.00544452, .00034961)
};
end;