求 SAS macro 高手！

silentzilch 发表于 2015-4-10 02:22
感谢您的回答！
但是我想实现的是输入任意一串数据然后进行排列的macro，而非单纯实现例子中的矩阵，还请 ...

%macro test(list=);
   %let n=%eval(%sysfunc(count(&list,%str( )))+1);

   data test;
       array v {&n};
           array tmp {&n} _temporary_ (&list);
           do i=1 to &n;
              do j=1 to &n;
                     v(j)=tmp(abs(j-i)+1);
                  end;
                 output;
            end;
                drop i j;
        run;
%mend;
%test(list=16 8 4 2)
%test(list=4 8 12 900 88)
%test(list=1 2 3 4 5 6 7)

%let n=4;
data test;
   array v(&n);
   do i=1 to &n;
      do j=1 to &n;
              v(j)=2**(&n-abs(j-i));
      end;
          output;
   end;
   drop i j;
run;

proc iml;
        n=4;
        A=toeplitz(2##(n:1));
        print A;
quit;

learsaas 发表于 2015-4-9 15:26
proc iml;
        n=4;
        A=toeplitz(2##(n:1));

吊炸天

pobel 发表于 2015-4-9 12:45
%let n=4;
data test;
   array v(&n);

感谢您的回答！
但是我想实现的是输入任意一串数据然后进行排列的macro，而非单纯实现例子中的矩阵，还请指教！

learsaas 发表于 2015-4-9 15:26
proc iml;
        n=4;
        A=toeplitz(2##(n:1));

PROC IML 我也想过，但我的目标是生成一个data set.
谢谢回答。

pobel 发表于 2015-4-9 10:30
%macro test(list=);
   %let n=%eval(%sysfunc(count(&list,%str( )))+1);

感谢您的回答！还有一个macro问题也在悬赏求解 https://bbs.pinggu.org/thread-3654300-1-1.html
如果有空，请您赐教。

silentzilch 发表于 2015-4-10 02:23
PROC IML 我也想过，但我的目标是生成一个data set.
谢谢回答。

iml也可以输出到dataset，个人觉得关于矩阵的问题还是用iml比较合适

IML绝对是事半功倍，强用macro无非多此一举。