data fid171;
set fid98;
by daima;
array var_lag[21];
var_lag[1] = lag(shou);
do i=1 to 20;
var_lag[i+1] = lag(var_lag[i]);
end;
if first.daima then var_lag[1]=. ;
if first.daima or lag1(first.daima) then var_lag[2]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) then var_lag[3]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) then var_lag[4]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima) then var_lag[5]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) then var_lag[6]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) then var_lag[7]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) then var_lag[8]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) then var_lag[9]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) then var_lag[10]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) then var_lag[11]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) then var_lag[12]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) then var_lag[13]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) then var_lag[14]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) or lag14(first.daima) then var_lag[15]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) or lag14(first.daima) or lag15(first.daima) then var_lag[16]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) or lag14(first.daima) or lag15(first.daima) or lag16(first.daima) then var_lag[17]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) or lag14(first.daima) or lag15(first.daima) or lag16(first.daima) or lag17(first.daima) then var_lag[18]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) or lag14(first.daima) or lag15(first.daima) or lag16(first.daima) or lag17(first.daima) or lag18(first.daima) then var_lag[19]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) or lag14(first.daima) or lag15(first.daima) or lag16(first.daima) or lag17(first.daima) or lag18(first.daima) or lag19(first.daima) then var_lag[20]=. ;
if first.daima or lag1(first.daima) or lag2(first.daima) or lag3(first.daima) or lag4(first.daima)or lag5(first.daima) or lag6(first.daima) or lag7(first.daima) or lag8(first.daima) or lag9(first.daima) or lag10(first.daima) or lag11(first.daima) or lag12(first.daima) or lag13(first.daima) or lag14(first.daima) or lag15(first.daima) or lag16(first.daima) or lag17(first.daima) or lag18(first.daima) or lag19(first.daima) or lag20(first.daima) then var_lag[21]=. ;
twentyturn=shou/var_lag[21];
run;
因为是股票分组的数据，为了把每只股票隔开，用了好多if，但是要取120天前的数据，小白实在是不能一个个写了，求大神能帮忙把if语句简化，或者有别的方法，最好给出代码，感谢！！