[SAS Data Management] File Drawer Problem (抽屉问题)

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

假设有4个不同的位置（P1，P2，P3， P4），每个位置都可以放红，黄， 绿 3 种颜色的球。
这样总共可以有 3 X 3 X 3 X 3 = 81 种不同的放法。

现在我想和各位SAS专版的会员讨论一下如何把这81种不同的放法都列出来。

我的方法如下：
第一步：建一个数列 （1，2，3，4，5，6，7，8，9，10，11，12）
第二步：用 MACRO  %permute(4, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12) ，将从12个不同的数里任意选4个数的所有不同排列都列出来。
             （There are 4 variables: r1, r2, r3, r4 in SAS dataset output)
http://support.sas.com/techsup/technote/ts498.html
第三步 ：在所有的排列中，将（1, 2, 3, 4)       替换成 （"R")
                                              将（5, 6, 7, 8)       替换成 （"Y")
                                              将（9, 10, 11, 12) 替换成 （"G")
第四步：合并 r1, r2, r3, r4 （TRIM(r1) || TRIM(r2) || TRIM(r3) || TRIM(r4)）成为一个新的variable: RYG.
第五步：删除所有重复的情况（select distinct RYG)，最后得到81种不同的放法。

请各位SAS专版的会员分享一下你们的方法。谢谢！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Management Managemen problem Manage Drawer 会员 如何

jackbt123 发表于 2010-3-8 00:45
假设有4个不同的位置（P1，P2，P3， P4），每个位置都可以放红，黄， 绿 3 种颜色的球。
这样总共可以有 3 X 3 X 3 X 3 = 81 种不同的放法。

现在我想和各位SAS专版的会员讨论一下如何把这81种不同的放法都列出来。

我的方法如下：
第一步：建一个数列 （1，2，3，4，5，6，7，8，9，10，11，12）
第二步：用 MACRO  %permute(4, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12) ，将从12个不同的数里任意选4个数的所有不同排列都列出来。
             （There are 4 variables: r1, r2, r3, r4 in SAS dataset output)
http://support.sas.com/techsup/technote/ts498.html
第三步 ：在所有的排列中，将（1, 2, 3, 4)       替换成 （"R")
                                              将（5, 6, 7, 8)       替换成 （"Y")
                                              将（9, 10, 11, 12) 替换成 （"G")
第四步：合并 r1, r2, r3, r4 （TRIM(r1) || TRIM(r2) || TRIM(r3) || TRIM(r4)）成为一个新的variable: RYG.
第五步：删除所有重复的情况（select distinct RYG)，最后得到81种不同的放法。

请各位SAS专版的会员分享一下你们的方法。谢谢！

Here is a simple one.

data needed;
   array p[4]  $1 p1-p4;
   array b[3]  $1 ('R','Y','G');
   length  comb $4;
   do i1 = 1 to 3;
      do i2 = 1 to 3;
         do i3 = 1 to 3;
             do i4 = 1 to 3;
               comb=catt( b(i1), b(i2), b(i3), b(i4) );
               output;
             end;
         end;
      end;
    end;
   keep  comb;
run;

proc print; run;

hi bobguy,  thank you so much.
could you share your sas programming for combinations and permutations?
best,

假设有R个位置

%MACRO GYR(R);

DATA GYR;
KEEP V1 - V&R;
ARRAY ColorList{3} $ 1 ("G", "Y", "R");

%DO S = 1 %TO &R;                 
DO i&S = 1 TO DIM(ColorList);
%END;
%DO S = 1 %TO &R;                 
V&S = ColorList{i&S};
%END;
OUTPUT;
%DO S = 1 %TO &R;                 
END;
%END;
RUN;

%MEND GYR;

jackbt123 发表于 2010-3-8 05:40
假设有R个位置

%MACRO GYR(R);

DATA GYR;
KEEP V1 - V&R;
ARRAY ColorList{3} $ 1 ("G", "Y", "R");

%DO S = 1 %TO &R;                 
DO i&S = 1 TO DIM(ColorList);
%END;
%DO S = 1 %TO &R;                 
V&S = ColorList{i&S};
%END;
OUTPUT;
%DO S = 1 %TO &R;                 
END;
%END;
RUN;

%MEND GYR;

Your macro is good one. But I am not sure what is your question in the other message.

M 个数里任意选 N 个数的所有排列(permutations).
假如你有时间的话，请你分享一下你的SAS codes.
谢谢。

jackbt123 发表于 2010-3-8 09:39
M 个数里任意选 N 个数的所有排列(permutations).
假如你有时间的话，请你分享一下你的SAS codes.
谢谢。

Here is a case for 3 out 7 permutations. It should be easily generalize in a macro for a general case.



data tmp;
   array y(7) $1 _temporary_ ( "1","2","3","4","5","6","7") ;

   do c1 = 1 to 7;
      do c2 = 1 to 7;
         if c1 = c2 then continue ;
         do c3 = 1 to 7;
            if c1 = c3 or c2 = c3 then continue ;
                  x1=y(c1); x2=y(c2); x3=y(c3);        
                  output ;
               end ;
            end ;
         end ;
     
run ;

proc print; run;

bobguy, thank you once again.
I learn so much useful sas programming logic and idea from you (or your coding).
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;

Testing
%COMBINATION(4,A,B,C,D,E,F);

8# jackbt123

That is great! Thanks.