program define sturng5 #delimit ; if `1' { matrix StuRng51 = ( .25108713, .01658269, -.00344098, .00018435 \ .24764697, .0147049, -.00329128, .00019015 \ .24418758, .01291627, -.0031947, .00020039 \ .24070612, .01121941, -.00314921, .00021411 \ .23720886, .0096033, -.00314648, .00022953 \ .23371205, .00804196, -.0031715, .00024408 \ .2302372, .00650332, -.00320798, .00025548) }; else { matrix StuRng50 = ( .65364254, .12444618, -.03517677, .00275649 \ .46302411, .09770155, -.02421, .00173918 \ .38198891, .07758864, -.01768043, .00119039 \ .33913946, .06515357, -.01403988, .00089126 \ .31590083, .05389972, -.01092713, .00063775 \ .30085078, .04571554, -.00878338, .00046214 \ .2900264, .0401665, -.00756238, .00038699 \ .2823526, .03550015, -.00652389, .00031633 \ .27644026, .03188961, -.00578295, .00027081 \ .27174151, .02903518, -.00524495, .00024194 \ .26794022, .02669681, -.00483082, .00022174 \ .26480076, .02475151, -.00450591, .00020734 \ .2621575, .02311963, -.00425029, .0001974 \ .25989711, .02173856, -.00404835, .00019083 \ .25780225, .02071924, -.00393959, .00019182 \ .25622782, .01954081, -.00375871, .00018437 \ .25471738, .01865463, -.00365404, .00018325 \ .25337294, .01787886, -.00356908, .00018307 \ .25217032, .01719267, -.00349897, .00018349 \ .25108713, .01658269, -.00344098, .00018435) }; end;