如何从21个字母中随机选择4个组合生成新的字符？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

是这样的，我有2400条数据，想给每一条数据以字母命名的唯一的标识符。从  A 、B 、 C 、D 、E 、F、  H 、 K 、L 、M、 N 、P 、R 、S、 T、 U 、V 、W、 X、 Y 、Z中随机挑选3个，如果不考虑顺序，可以有1330种组合，
选择4个 可以有5985种组合，现在只能选择4个了。好像是用rannui（）这个函数。可是我不知道怎么写这段程序。高手帮帮忙啊。我急用啊。

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：RAN 不知道 选择 随机 字符 字母

1. data Cde;
   
2. 
   
3.         do Cde=1 to 26 by 1;
   
4. 
   
5.                 Des=byte(Cde+64);
   
6. 
   
7.                 if Des not in ("G","I","J","O","Q") then output;
   
8. 
   
9.         end;
   
10. 
    
11. 
    
12. 
    
13. run;
    
14. 
    
15. proc sql;
    
16. 
    
17.         select Des into:Des separated by '' from Cde;
    
18. 
    
19. quit;
    
20. 
    
21. %put &Des;
    
22. 
    
23. data test;
    
24.         do n=1 to 2400 by 1;
    
25.                 output;
    
26.         end;
    
27. 
    
28. run;
    
29. 
    
30. 
    
31. data result;
    
32.                 length Rst $4;
    
33.                 set test;
    
34. 
    
35.         do i=1 to 4 by 1;
    
36. 
    
37.                 if i=1 then  do;
    
38.                                         All=compress("&Des");
    
39.                                         Rst="";
    
40.                                 end;
    
41. 
    
42.                 length=length(All);
    
43. 
    
44.                 x=ceil(ranuni(0)*length);
    
45. 
    
46.                 Rst=compress(substr(All,x,1)||Rst);
    
47. 
    
48.                 substr(All,x,1)="";
    
49. 
    
50.                 All=compress(All);
    
51.                        
    
52.         end;
    
53.                 keep n Rst;
    
54. 
    
55. 
    
56. run;

复制代码

看看行不行，和之前那个类似嘛。。。

貌似以前问过一样的吧

soporaeternus 发表于 2010-3-26 16:06

1. data Cde;
   
2. 
   
3.         do Cde=1 to 26 by 1;
   
4. 
   
5.                 Des=byte(Cde+64);
   
6. 
   
7.                 if Des not in ("G","I","J","O","Q") then output;
   
8. 
   
9.         end;
   
10. 
    
11. 
    
12. 
    
13. run;
    
14. 
    
15. proc sql;
    
16. 
    
17.         select Des into:Des separated by '' from Cde;
    
18. 
    
19. quit;
    
20. 
    
21. %put &Des;
    
22. 
    
23. data test;
    
24.         do n=1 to 2400 by 1;
    
25.                 output;
    
26.         end;
    
27. 
    
28. run;
    
29. 
    
30. 
    
31. data result;
    
32.                 length Rst $4;
    
33.                 set test;
    
34. 
    
35.         do i=1 to 4 by 1;
    
36. 
    
37.                 if i=1 then  do;
    
38.                                         All=compress("&Des");
    
39.                                         Rst="";
    
40.                                 end;
    
41. 
    
42.                 length=length(All);
    
43. 
    
44.                 x=ceil(ranuni(0)*length);
    
45. 
    
46.                 Rst=compress(substr(All,x,1)||Rst);
    
47. 
    
48.                 substr(All,x,1)="";
    
49. 
    
50.                 All=compress(All);
    
51.                         
    
52.         end;
    
53.                 keep n Rst;
    
54. 
    
55. 
    
56. run;

复制代码

看看行不行，和之前那个类似嘛。。。

我的问题和以前的一样，你怎么保证选出来的ID不重复？

1. %MACRO T(Des,C);
   
2. %let N=%length(%sysfunc(compress(&Des)));
   
3. data test;
   
4.         length Rst $&C;
   
5.         %do i=1 %to &N %by 1;
   
6.                 do i_&i=0 to 1 by 1;
   
7.         %end;
   
8.         Rst="";
   
9.         if sum(of i_1-i_&N)=&C then do;
   
10.                 %do i=1 %to &N %by 1;
    
11.                         if i_&i=1 then Rst=compress(Rst||substr("&Des",&i,1));
    
12.                 %end;
    
13.                 output;
    
14.         end;
    
15.         %do i=1 %to &N %by 1;
    
16.                 end;
    
17.         %end;
    
18.         keep Rst;
    
19. run;
    
20. %MEND T;
    
21. %T(&Des,4);

复制代码

对不起，我没看到生成的标示需要唯一。
以上代码生成comp(21,4)的所有取法
抽样2400个......
希望有好办法

Here is Macro for Combination to generate all cases by choosing R out of any list with length >= R.
Reference: http://support.sas.com/techsup/technote/ts498.html

%MACRO COMBINATION(R) / PARMBUFF; /* the PARMBUFFf option assigns the invocation parameter list to the macro variable &SYSPBUFF */

%LET M = 2;
%LET LIST = ;
%DO %WHILE (%QSCAN(&SYSPBUFF, &M, %STR(,%))) NE );
        %LET ELEMENT = "%QSCAN(&SYSPBUFF, &M, %STR(,%)))";
        %IF &M = 2 %THEN %LET LIST = &ELEMENT;
        %ELSE %LET LIST = &LIST, &ELEMENT;
        %LET M = %EVAL(&M + 1);
%END;
%LET K = %EVAL(&M - 2);

%PUT &LIST;
%PUT &R;
%PUT &K;

DATA COMBINATION;
        KEEP V1 - V&R;
        ARRAY L{&K} $ 1 (&LIST);
    DO i1 = 1 TO DIM(L);
    %DO S = 2 %TO &R;
                DO i&S = i%EVAL(&S - 1) + 1 TO DIM(L);
        %END;
                %DO S = 1 %TO &R;                 
                        V&S = L{i&S};
                %END;
                OUTPUT;
        %DO S = 1 %TO &R;                 
                END;
        %END;
RUN;

%MEND COMBINATION;

%COMBINATION(4,A,B,C,D,E,F,H,K,L,M,N,P,R,S,T,U,V,W,X,Y,Z);

Recommended Reading:
http://www.pinggu.org/bbs/thread-729799-1-1.html

学习一下，顶起

soporaeternus 发表于 2010-3-26 23:36

1. %MACRO T(Des,C);
   
2. %let N=%length(%sysfunc(compress(&Des)));
   
3. data test;
   
4.         length Rst $&C;
   
5.         %do i=1 %to &N %by 1;
   
6.                 do i_&i=0 to 1 by 1;
   
7.         %end;
   
8.         Rst="";
   
9.         if sum(of i_1-i_&N)=&C then do;
   
10.                 %do i=1 %to &N %by 1;
    
11.                         if i_&i=1 then Rst=compress(Rst||substr("&Des",&i,1));
    
12.                 %end;
    
13.                 output;
    
14.         end;
    
15.         %do i=1 %to &N %by 1;
    
16.                 end;
    
17.         %end;
    
18.         keep Rst;
    
19. run;
    
20. %MEND T;
    
21. %T(&Des,4);

复制代码

对不起，我没看到生成的标示需要唯一。
以上代码生成comp(21,4)的所有取法
抽样2400个......
希望有好办法

这个程序好。这也是我在此论坛见到的最好的程序之一。

学习了！！