function ty=code2(y)
global m my t p

% coding
  ty=0;                    
  for i=1:p
    ty=ty+y(t-i);
  end
  ty=ty-p+1;