[求助]请大家进来帮我看看这个sas问题，万谢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

能否用sas程序，模拟这些行列表2*2，2*3，2*4，2*5，3*4，3*5，4*5。

对任一个表来说都要保证总合计是5。或者 对任一个表来说都要保证每个行合计是5？

请大家帮我写个程序，谢谢了。愿意以5个论坛币换取。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：SAS问题 sas程序 5个论坛币 论坛币 求助 SAS 万谢

假设取0-5 的整数，如果选任意数，程序需要稍微改一下

%macro matrix(row = , col = );
proc iml;
  a = J(&row, &col, 0) ;
  sum = {0};
  do i =1 to &row;
    do j = 1 to &col;
      a[i,j] = int(6*ranuni(-1));
      sum[1,1] = sum[1,1] + a[i,j];
      do until (sum[1,1] <= 5 );/* if great than 5, then regenerate number*/
        sum[1,1] = sum[1,1] - a[i,j];
        a[i,j] = int(6*ranuni(-1));
        sum[1,1] = sum[1,1] + a[i,j];
      end;
     end;
    end;
  a[&row,&col] = 5-sum[1,1];

/* print matrix */
  print a;
 
quit;
%mend;

/* 2 by 2 */
%matrix(row=2,col = 2);

/* For other Matrices*/
%macro OtherMatrix();
  %do i = 2 %to 4;
    %let j = %eval(&i +1);
    %matrix(row=&i, col = &j);
  %end;
%mend;

%OtherMatrix();

[此贴子已经被作者于2009-4-3 7:36:12编辑过]

谢谢,我试试