请教高人

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

新手上路，有两个题目怎么也调不出来，忘哪位大侠能出手相救，小女子这厢有礼了

[em31](也许问题都比较初级，请勿见笑）

1用SAS数据步列出10000以下的素数，写出程序。

2生成t分布的双侧分位表，水平取0.001、0.002、0.005、0.01、0.02、0.05、0.10、0.20，自由度取1-100，分位数精确到小数点后3位；表格应为行、列对齐的形式，并有列标题；写出生成这样的表格并存放到一个文本文件中的SAS程序。

 

 

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：请教高人 sas程序 文本文件 新手上路 自由度 请教 高人

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编辑过]

thanks learning.

非常非常感谢

非常非常感谢

以下是引用宜桦在2008-10-28 0:39:00的发言：

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;

算法太烂.

我也觉得不太好，把你写的帖上来让我学一学？

谢谢

这个算法至少有7种不错的算法,我不说那7种算法,拿你的算法改下比你的就好多啦.

好像出不来结果