求助：有关产生随机数后再排序提取中间某数的方法

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

本人想做值序抽样法产生随机数。产生500组0 1均匀分布的随机数，每组有6个，然后从小到大排序，想提取排第4的到一个新的变量y，求高手指教。本人愚钝，只能做到如下，求修正，求添加
data a;
do j=1 to 500;
array r{6} r1-r6;
  do i=1 to 6;
  r{i}=ranuni(0);
end;output;end;

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：随机数 output ranuni array outpu

1. data a;
   
2.         drop i j;
   
3.         array r{6} r1-r6;
   
4.         do j=1 to 500;
   
5.                   do i=1 to 6;
   
6.                           r{i}=ranuni(0);
   
7.                 end;
   
8.                 output;
   
9.         end;
   
10. run;
    
11. 
    
12. data b;
    
13.         set a;
    
14.         max_1=0;
    
15.         max_2=0;
    
16.         y=0;
    
17.         array r(*) r1-r6;
    
18.         do i=1 to 6;
    
19.                 if r(i)>=max_1 then do;
    
20.                         y=max_2;
    
21.                         max_2=max_1;
    
22.                         max_1=r(i);
    
23.                 end;
    
24.                 else if r(i)>=max_2 then do;
    
25.                         y=max_2;
    
26.                         max_2=r(i);
    
27.                 end;
    
28.                 else if r(i)>=y then y=r(i);
    
29.         end;
    
30.         drop max_1 max_2 i;
    
31. run;

复制代码

比较土，但可以实现

adding a sortn call just before out as below,


data a;
seed=12789;
array r{6} r1-r6;
do j=1 to 500;
        do i=1 to 6;
                  r{i}=ranuni(seed);           
        end;
       call sortn (of r{*});
        output;
end;
keep r:;
run;

proc print;
sum r:;
run;

freerunning_sky 发表于 2012-4-7 23:16
比较土，但可以实现

谢谢，万分感谢。请原谅新手没币。

bobguy 发表于 2012-4-7 23:50
adding a sortn call just before out as below,

谢谢，这位高手的较为简洁。call sorth给我新的知识了，谢谢。但是我要提取排第4的值，所以似乎要在output前再加个y={4};也很谢谢你。请原谅新手没币送。