求助！关于SAS中产生随机数的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问要怎么产生以字母开头后随9位数字的5000个随机ID号？
程序应该怎么写？
请高人指教！谢谢！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：随机数 求助 SAS 随机数

data test;
do i=1 to 5000;
retain seed  185634382;
call ranuni(seed,random);
output;
end;
run;
data a(drop=seed i random random1 random2);
set test;
random1=random*100000;
format random1 5.;
random2=put(random1,5.);
ID="a"||random2;
run;
proc print;
run;

少呃 发表于 2010-3-11 22:38
请问要怎么产生以字母开头后随9位数字的5000个随机ID号？
程序应该怎么写？
请高人指教！谢谢！

1. 
   
2. DATA RAW;
   
3. DO X = 1 TO 1E9-1;
   
4.   OUTPUT;
   
5. END;
   
6. RUN;
   
7. PROC SURVEYSELECT DATA=RAW
   
8.       METHOD=SRS N = 5000 SEED = 1 OUT = SampleSRS;
   
9. run;
   
10. DATA RANDOM_ID;
    
11. SET SampleSRS;
    
12. ID = 'A'||PUT(X, Z9.);
    
13. DROP X;
    
14. RUN;

复制代码

Generating 9-digit random numbers (integers) is somewhat time-consuming. We need to make sure that they are unique and selected from 1 to 1E9-1 by equal chance.
JingJu

少呃 发表于 2010-3-11 22:38
请问要怎么产生以字母开头后随9位数字的5000个随机ID号？
程序应该怎么写？
请高人指教！谢谢！

Here is the one. I do a little trick to manuplate a seed in SAS. The results look good. Note sas seeds will repeat after 2**32-1 if I remember it correct.

You can write your own by finding out the random uniform generation.



%let n=50000;
data o;
  seed=ceil(ranuni(123)*100)  ;
  do while(1);
    call ranuni(seed, r3);
    x= int(log10(seed));
    if x<9 then do;
      n+1;
      id='a'||put(seed,z9.);
      if seed<100000000 then c=1;
      else if seed<200000000 then c=2;
      else if seed<300000000 then c=3;
      else if seed<400000000 then c=4;
      else if seed<500000000 then c=5;
      else if seed<600000000 then c=6;
      else if seed<700000000 then c=7;
      else if seed<800000000 then c=8;
      else if seed<900000000 then c=9;
      else c=10;
      output;
      if n=&n then stop;
     end;
  end;
run;

proc freq data=o;
table c;
run;

proc sort data=o nodupkey;by seed;run;

学习到了
谢谢两位高人

楼主我们班的啊 呵呵 跑着来问

受教了，谢谢高手

jingju11 发表于 2010-3-12 01:27

少呃 发表于 2010-3-11 22:38
请问要怎么产生以字母开头后随9位数字的5000个随机ID号？
程序应该怎么写？
请高人指教！谢谢！

1. 
   
2. DATA RAW;
   
3. DO X = 1 TO 1E9-1;
   
4.   OUTPUT;
   
5. END;
   
6. RUN;
   
7. PROC SURVEYSELECT DATA=RAW
   
8.       METHOD=SRS N = 5000 SEED = 1 OUT = SampleSRS;
   
9. run;
   
10. DATA RANDOM_ID;
    
11. SET SampleSRS;
    
12. ID = 'A'||PUT(X, Z9.);
    
13. DROP X;
    
14. RUN;

复制代码

Generating 9-digit random numbers (integers) is somewhat time-consuming. We need to make sure that they are unique and selected from 1 to 1E9-1 by equal chance.
JingJu

这个很坏啊 运行卡机 产生大量临时文件

对啊，上面那个一运行就把盘写满了。。
不过还是谢谢各位的指教啦！

dybwall1234 发表于 2010-3-13 16:00

jingju11 发表于 2010-3-12 01:27

少呃 发表于 2010-3-11 22:38
请问要怎么产生以字母开头后随9位数字的5000个随机ID号？
程序应该怎么写？
请高人指教！谢谢！

1. 
   
2. DATA RAW;
   
3. DO X = 1 TO 1E9-1;
   
4.   OUTPUT;
   
5. END;
   
6. RUN;
   
7. PROC SURVEYSELECT DATA=RAW
   
8.       METHOD=SRS N = 5000 SEED = 1 OUT = SampleSRS;
   
9. run;
   
10. DATA RANDOM_ID;
    
11. SET SampleSRS;
    
12. ID = 'A'||PUT(X, Z9.);
    
13. DROP X;
    
14. RUN;

复制代码

Generating 9-digit random numbers (integers) is somewhat time-consuming. We need to make sure that they are unique and selected from 1 to 1E9-1 by equal chance.
JingJu

这个很坏啊 运行卡机 产生大量临时文件

Really? I run it about 3-5 minutes and had no obvious problem. About the temporary files, I don't get it. Can you list it out? If you had better way to do that, why don't share it?