data example4_1;
alpha=0.05;                                /*硌隅珨濬渣昫汐硉*/
beta=0.1;                                  /*硌隅媼濬渣昫汕硉*/
delta=3.1;                                 /*硌隅郪潔郔苤船硉*/
mse=5.5;                                   /*硌隅昫船歙源*/
b=ceil(2*mse*(probit(1-alpha/2)+probit(1-beta))**2/delta**2);  
label alpha="汐";
label beta="汕";
label delta="汛";
label mse="昫船歙源";
label b="垀剒⑹郪杅";
proc print noobs label;
run;
