question 1:

data all_num non;

do i = 1  t0 10000;

      do j = 1  to i-1;

         if mod (i,j) = 0 and j ne 1  then  output non;

      end;

output all_num;

end;

run;

 proc sql;

create  table f as

select i

from all_num

where i not  in      (select  distinct i from non);

quit;

[此贴子已经被作者于2008-10-28 0:40:13编辑过]

Question 2:

data stats;

do p = 0.001, 0.002, 0.005, 0.01, 0.02, 0.05, 0.10,0.20 ;

      do df = 1  to  100;

            x = round(tinv((1-p/2), df), .001);

            output;

      end;

end;

run;

proc  transpose
  data = stats out = outs ( drop = _name_) prefix = df_;

by p;

*id = df;

var x;

run;

 ods  html  file = "c:\t table.xls"  style = minimal;

 proc  print  data = outs;

title  "T table";

run;

ods  html  close;

[此贴子已经被作者于2008-10-28 0:43:22编辑过]

非常非常感谢

非常非常感谢