【悬赏80论坛币】fcmp过程关于一个排列组合函数的疑问，求教！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

好吧，无人问津，那么帮忙解决了问题。还是无人问津，提高悬赏，送80个论坛币。

下面的程序做5取3的排列组合过程，取值是3个，2个0. 哪位朋友能麻烦解答下这个程序是怎么完成各个组合的计算的呢。这个是help文档里的事例

1. proc fcmp outlib=sasuser.funcs.math;
   
2.    subroutine allpermk(n, k);
   
3.       array scratch[1] / nosymbols;
   
4.       call dynamic_array(scratch, n);
   
5.       call permk(n, k, scratch, 1, 0);
   
6.    endsub;
   
7. 
   
8. subroutine permk(n, k, scratch[*], m, i);
   
9.    outargs scratch;
   
10.    if m-1 = n then do;
    
11.       if i = k then
    
12.          put scratch[*];
    
13.       end;
    
14.    else do;
    
15.       scratch[m] = 1;
    
16.       call permk(n, k, scratch, m+1, i+1);
    
17.       scratch[m] = 0;
    
18.       call permk(n, k, scratch, m+1, i);
    
19.    end;
    
20. endsub;
    
21. run;
    
22. quit;
    
23. 
    
24. options cmplib=sasuser.funcs;
    
25. data _null_;
    
26.    call allpermk(5, 3);
    
27. run;
    
28. Log Output from Recursion Example
    
29. 1 1 1 0 0
    
30. 1 1 0 1 0
    
31. 1 1 0 0 1
    
32. 1 0 1 1 0
    
33. 1 0 1 0 1
    
34. 1 0 0 1 1
    
35. 0 1 1 1 0
    
36. 0 1 1 0 1
    
37. 0 1 0 1 1
    
38. 0 0 1 1 1

复制代码

还有在：   
scratch[m] = 1;     
call permk(n, k, scratch, m+1, i+1);


这个部分，难道是一直进行循环到m-1=n?这样scratch都取值是1了么？可是这个时候i=k也不成立啊，那怎么输出scratch？各位帮帮忙解释一下吧

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：0论坛币 FCMP 论坛币 FCM CMP scratch 朋友 程序

permk子过程的m用于标记当前循环所处scratch的位置，初始值为1，到n+1时结束，i用于记录scratch中1的数目。

开始循环时，m=1，i=0，进入else部分，scratch[1]=1，然后再call permk(5,3,scratch,2,1)，这时就进入了递归的第二重循环，这时scratch[2]=1，然后再call permk(5,3,scratch,3,2)，...，直到m=6为止，此时scratch里面有五个1，i=5，不满足i=3的条件，所以不输出

这时循环开始逐个跳出第一个call permk，进入下一个call permk，即逐步为scratch由后向前把1换0，.....

说了这么多我都晕了，简单说来就是遍历一个5位的2进制数的所有可能，然后每一位上的1相加之和等于3才输出。如果想更直观些，只要把if i=k then那一行注释掉，然后看看程序输出些什么就好了