代码简化问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

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语句简化，或者有别的方法，最好给出代码，感谢！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Twenty First array AIMA FIRS

我自己试了几次，还是不行。。用
if first.daima then var_lag[1]=. ;
if first.daima or lag1(first.daima) then var_lag[2]=. ;
do i=2 to 30;
if first.daima or lag1(first.daima)-lag(i)&(first.daima) then var_lag[i+1]=.;
end;
if 语句没有报错但是另起的股票代码没有空出该有的31个值，只空了一个。。求帮忙

有人知道吗？

已解决