proc sort data=stock.b out=b;
  by stockcode wk date;
run;

data b0;
  set b;
  by stockcode wk date;
        if first.stockcode then nw=0;
        if first.wk then nw+1;
  if last.wk then wnclose=nclose;
run;

data b1(keep=stockcode nw wnclose);
  set b0;
  by stockcode wk date;
        if last.wk;
run;

data b2;
  set b1;
        do i=1 to 4;
    nweek=nw+i;
                if nweek>=5 then output;
        end;
run;

proc sort data=b2;
  by stockcode nweek;
run;

proc transpose data=b2 out=b3;
  by stockcode nweek;
        var wnclose;
run;

data bdate;
  merge b0 b3(rename=(nweek=nw));
        by stockcode nw;
        if ^missing(nclose) & ^missing(col1) & ^missing(col2) & ^missing(col3) & ^missing(col4) then
        wma5=mean(of col1-col4,nclose);
        drop nw _name_ col:;
run;

你太厉害了[em17][em17][em17][em17]

如果是2周为一组的这样搞会好多啊。《LAG返回的是上一次LAGE函数运行时的实参，即LAG(argument)=上一次LAG函数执行时的argument。》有没有办法依据这个来实现呢，大神

data bx;
  set b;
  by stockcode wk date;
  retain wnclose_;
  if last.wk then do;
    wnclose=nclose;
    wnclose_=nclose;
  end;
        if ^missing(nclose) & ^missing(wnclose_) then
  wma2=mean(wnclose_,nclose);  
run;
————————————————————————————————————————
有点晕，运行上面的程序是所说的2周一组的效果吗？如果用LAG的话，上一周的wnclose会在下一周的最后一天而不是第一天使用，会错开一周。。。
不要叫我大神，我只是初学的菜鸟

已经膜拜了，思路清晰，逻辑严密[em17][em17]

这个2个平均合适，这样写20个平均可以实现么？