程序不错！我的solution如下
data a;<br />
do i=1 to 7;x1=1;output;end;run;<br />
data b(keep=x1-x7);<br />
set a;<br />
array xx(*) x1-x7 ;<br />
array ee(*) e1-e7;<br />
do j=2 to 7;<br />
ee(j)+xx(j-1);<br />
xx(j)=lag(ee(j));<br />
end;<br />
proc print;<br />
run;<br />
