[求助]数字循环的问题?顺便一问，有喜欢玩彩票的爱好者吗？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助高手:

      有几个变量，比如3个。 d1(百位数）有0，1，3，5，6等5个值，

 d2(十位数）有0，2，4，5，7，9等6个值，

 d3(个位数）有1，3，6等3个值，怎样让这3个变量循环，得到下列的排列？    非常感谢！！！

d1  d2  d3

0    0    1

0    0    3

0    0    6

0    2    1

0    2    3

0    2    6

0    4    1

0    4    3

0    4    6

。。。。。

[此贴子已经被作者于2009-3-4 17:11:42编辑过]

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：爱好者 非常感谢 求助高手 个位数 数字 彩票 爱好者

try this. It use Array, Do loop, and output statements

data loopdate (keep= d1 d2 d3);
   array L1{5} (0 1 3 5 6);
   array L2{6} (0 2 4 5 7 9);
   array L3{3} (1 3 6);
   do i = 1 to 5 ;
      do j = 1 to 6;
           do k = 1 to 3;
             d1 = L1(i);
             d2 = L2(j);
             d3 = L3(k);
             output;
          end;
      end;
   end;
run;
proc print data=loopdate;
run;

output
Obs    d1    d2    d3
1     0     0     1
2     0     0     3
3     0     0     6
4     0     2     1
5     0     2     3
6     0     2     6
7     0     4     1
8     0     4     3
9     0     4     6
10     0     5     1
11     0     5     3
12     0     5     6
13     0     7     1
14     0     7     3
15     0     7     6
16     0     9     1
17     0     9     3
18     0     9     6
19     1     0     1
20     1     0     3
21     1     0     6
22     1     2     1
23     1     2     3
24     1     2     6
25     1     4     1
26     1     4     3
27     1     4     6
28     1     5     1
29     1     5     3
30     1     5     6
31     1     7     1
32     1     7     3

data a;
  do d1=0,1,3,5,6;
     do d2=0,2,4,5,7,9;
     do d3=1,3,6;
  output;
  end;
 end;
end;
run;

非常感谢各位！！   随便问一句，有没有用SAS分析彩票的爱好者

我还有一种方法：

data d1;
input d1 @@ ; cards;
0 1 3 5 6
;
data d2;
input d2 @@; cards;
0 2 4 5 7 9
;

data d3;
input d3 @@; cards;
1 3 6
;
proc sql;
create table d as select *
from d1,d2,d3;
quit;

从哪里来的前终究还是回到哪里去，不要想着靠读博来发家致富，曾经我也有过靠读博来发家致富 想法，现实如同一盆冷水叫醒我的发财梦，让我不得不面对我几十个的负在，生无可恋或许就是这种感觉吧，后来让我再网上认识了东哥，是他教导了我，教我看路子，带我走上来了，说真的东哥我是真的佩服，如果不是他我可能已经流浪街头，还在海里的朋友有需要的联系东哥（bc037b）希望你不要在迷茫