求教个循环赋值的程序。谢谢关注。

求教个SAS程序。
有A1- A9 九个变量，初始值均为1，
之后对九个变量循环赋值，对其中共计1-9 个变量赋值为0，使得其中还有1个零， 2个零，3个零、、、、、
例如，
第一次， 任选1个变量赋值为0 ，共有9行 ，即C（9，1）行；
第二次，任选2个变量赋值为0， 共有36行，即 C（9，2）行；
第三次，任选3个。。。一次类推，全选9个。。。

欢迎热心同学帮忙。。 谢谢。

1. data have;
   
2.   input var1-var9;
   
3. cards;
   
4. 1 1 1 1 1 1 1 1 1
   
5. ;
   
6. run;
   
7. 
   
8. %macro select(dsn, start, end,outdsn,seed);
   
9.       data &outdsn;
   
10.           set &dsn (obs=0);
    
11.           run;
    
12.       proc transpose data=&dsn out=temp;
    
13.           run;
    
14.           %do i=&start %to &end;
    
15.           %let ncomb=%sysfunc(comb(&end,&i));
    
16.             %do j=1 %to &ncomb;
    
17.                    %let seed=%eval(%sysfunc(round(%sysfunc(ranuni(&seed))*100000000)+&j);
    
18.             proc surveyselect data=temp out=select&i&j(keep=_name_ col1) method=srs rep=1
    
19.              sampsize=&i seed=&seed;
    
20.       id _all_;
    
21.       run;
    
22.       data select&i&j;
    
23.       set select&i&j;
    
24.       col1=0;
    
25.       run;
    
26.       data temp&i&j;
    
27.           set temp;
    
28.           run;
    
29.       data temp&i&j;
    
30.        update temp&i&j select&i&j;
    
31.            by _name_;
    
32.            run;
    
33.        proc transpose data=temp&i&j out=final&i&j(drop=_name_);
    
34.            run;
    
35.            data &outdsn;
    
36.            set &outdsn final&i&j;
    
37.            run;
    
38.     %end;
    
39.         %end;
    
40. %mend;
    
41. 
    
42. %select(have,1,9, want,388487)

复制代码

farmman60 发表于 2014-6-8 21:43

抱歉，还请帮下忙，
因为我描述上有些问题，所以结果有些出入，
最后 的结果，可能不是任意变量赋值0，
而是每种组合设置一次0；
例如 包含1个0时，
生成的9行应为
0 1 1 1 1 1 1 1 1
1 0 1 1 1 1 1 1 1
1 1 0 1 1 1 1 1 1
1 1 1 0 1 1 1 1 1
1 1 1 1 0 1 1 1 1
1 1 1 1 1 0 1 1 1
1 1 1 1 1 1 0 1 1
1 1 1 1 1 1 1 0 1
1 1 1 1 1 1 1 1 0

2个0时，应为
0 0 1 1 1 1 1 1 1
0 1 0 1 1 1 1 1 1。。。如有时间再帮忙修改下，谢谢。

rain958 发表于 2014-6-9 08:58
抱歉，还请帮下忙，
因为我描述上有些问题，所以结果有些出入，
最后 的结果，可能不是任意变量赋值0， ...

1. data have;
   
2.   input var1-var9;
   
3. cards;
   
4. 1 1 1 1 1 1 1 1 1
   
5. ;
   
6. run;
   
7. 
   
8. data want;
   
9.    set have;
   
10.    array num(9)  (1 2 3 4 5 6 7 8 9);
    
11.    array var var1-var9;
    
12.    n=dim(var);
    
13.    do i=1 to dim(var);
    
14.       ncomb=comb(n,i);
    
15.           do j=1 to ncomb;
    
16.             call allcomb(j,i,of num(*));
    
17.                  do k=1 to i;
    
18.                   put num(k);
    
19.                   var(num(k))=0;
    
20.                  end;
    
21.          output;
    
22.                  do p=1 to dim(var);
    
23.                   var(p)=1;
    
24.                   end;
    
25.           end;
    
26.   end;
    
27.   drop i j k p n: ;
    
28. run;

复制代码

farmman60 发表于 2014-6-9 11:11

非常感谢~