求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

subroutine Tar(series x,series y,scalar m,scalar tlimit)

matrix u_s

call resid(x,y)

series du=d(u)

scalar inf=@round(@obs(u)*0.15)

scalar sup=@round(@obs(u)*0.85)

matrix(sup-inf+l) u_sr

scalar sr

scalar tmin

scalar tindex

table result_tar

if tlimit=0 then

    if @val(result_tar(l，1))>0 then

      call olsr(u,0,result_tar,m)

    else

       result_tar(1,1)="0"

       call olsr(u,0,result_tar,m)

     endif

else

  if m=0 then

  call sortu(u,u_ s)

  else

  call sortu(du,u_ s)

endif

!j=1

for !i=inf to sup

   call olsresid(u,u_ s(!i),sr,m)

   u_sr(!j)=sr

   !j=!j+1

next

tmin=u_sr(1)

tindex=1

for !i=1 to (sup-inf+l)

      if tmin>u_ sr(!i) then

        tmin=u_ sr(!i)

        tindex=!i

      endif

  next

   if @val(result_tar(l,1))>0 then

    call olsr(u,u_ s(tindex+inf-1),result _tar,m)

   else

    result_tar(1,1)="0"

    call olsr(u,u_ s(tindex+inf-1),result_tar,m)

   endif

endif

delete u_s

delete u_sr

delete inf

delete sup

delete tmin

delete tindex

delete m

endsub

call tar(rl0,rl，1,1)

哪位高手帮我看看这个eviews程序有什么问题，为什么运行了后软件界面没反应，是程序的为题还是软件的问题？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Routine Result Scalar delete Series matrix

好复杂，是不是逻辑上的问题

如果逻辑上有问题，系统应该会提示的！