求理解正态分布随机抽样的SAS程序

请各位高手指点，我要一个理解正态分布随机抽样的SAS程序，我会随时关注这个帖子，如果有哪位高手给的SAS程序我运行后可以满足我的要求，我会立即把他的答案设为最佳答案，可以请版主作证，如果高手给的答案满足我的要求，而我迟迟不设他的答案为最佳答案，版主可以罚我三倍我设的悬赏额！！谢谢！我要的SAS程序要出现一下结果：
一 。产生一个正态分布的随机总体，这个总体的参数和它所包含个体的数目是可调整的，请您说明一下怎样调整；
二。 可对这个总体进行正态分布检验；
三。对这个总体进行n次随机抽样，抽样的次数n和每个样本含量（每个样本含量可以相同）是可调整的，请您说明一下怎样调整；
四。检验所抽取的所有样本的正态性；
五。计算出所抽取的所有样本的均数；
六。计算出位于总体均数两侧【(0,0.025)and(0.975,1.00)以及(0,0.005)and(0.995,1.00)】的样本占所抽取样本量的百分比，百分位保留四位，请您说明一下怎样调整这个范围【(0,0.025)and(0.975,1.00)以及(0,0.005)and(0.995,1.00)】以及百分位的保留数值怎样设定。
非常感谢各位高手的指点！！！

%macro crackman(mean,variate,n,seed);
/*产生正态分布的随机总体，均值为MEAN，方差为VARIATE，个体数为N*/
title;
data crackman;
do i=1 to &n.;
x=&mean.+(&variate.)*rannor(&seed.);
output;
end;
run;
/*对总体进行正态分布检验*/
proc univariate data=crackman normal plot;
var x;
run;
%mend crackman;
%macro select(samplesize,freq);
/*随机抽样*/
%do i=1 %to &freq.;
proc surveyselect data=crackman out=crackman&i. method=srs n=&samplesize. seed=&i.;
run;
proc univariate data=crackman&i. normal plot;
var x;
run;
%end;
%mend select;
%crackman(68,8.9,100,1);
%select(15,10);



你第六条：样本比例就是3%啊
需要调整么？

不好意思，我还要附带说明一下，我要的SAS程序要按顺序出现我所陈述的结果，谢谢！

不好意思再说一下，如果答案一样可运行的话，我只好把先发表的高手的程序设为最佳答案！谢谢！

hopewell赶紧出来抢钱啊

非常感谢crackman版主！你第六条：样本比例就是3%啊需要调整么？”，我的第六条意思是说样本均数在总体均数两侧（总共为5%或1%）的样本个数占所抽取样本个数的百分比，我的理解是：这个百分比（不管是在两侧总共5%的范围或在两侧总共1%的范围）应该每次都不一样的，你是怎么确定它是一样的，而且是3%呢？望请crackman版主指点！我先去试一下这个程序。

我也搞不懂你第六条到底想干啥

crackman版主，你真是热心与强大！！非常感谢！！

%macro crackman(mean,variate,n,seed);
/*产生正态分布的随机总体，均值为MEAN，方差为VARIATE，个体数为N*/
title;
data crackman;
do i=1 to &n.;
x=&mean.+(&variate.)*rannor(&seed.);
output;
end;
run;
/*对总体进行正态分布检验*/
proc univariate data=crackman normal plot;
var x;
run;
%mend crackman;
%macro select(samplesize,freq);
/*随机抽样*/
%do i=1 %to &freq.;
proc surveyselect data=crackman out=crackman&i. method=srs n=&samplesize. seed=&i. noprint;
run;
proc means data=crackman&i. uclm lclm noprint;
var x;
output out=result&i. uclm=uclm lclm=lclm;
run;
%end;
data result;
set result1-result&freq.;
if lclm<68 and 68<uclm then n=1;
else n=0;
run;
proc sql;
select sum(n) as n from result;
quit;
%mend select;
%crackman(68,8.9,10000,2);
%select(9900,100);
你调一下crackman里面的SEED值，以及SELECT里面的样本量
样本量越大，那么N越大，说明不在置信区间的概率越低
你可以去测试一下

进来学习下，我觉得很多东西都还给老师了......