resid

 Copyright (C) 2001 Michel Juillard

0001 % Copyright (C) 2001 Michel Juillard
0002 %
0003 function resid(period)
0004   global M_ options_ oo_ it_ endval_ z
0005   
0006   oo_.exo_simul = ones(M_.maximum_lag+M_.maximum_lead+period,1)*oo_.exo_steady_state';
0007   n = size(M_.lead_lag_incidence,2);
0008 %  if ~ options_.initval_file | size(oo_.y_simul,2) ~= period+M_.maximum_lag+M_.maximum_lead
0009   if ~ options_.initval_file 
0010     if size(oo_.steady_state,1) == 1 & oo_.steady_state == 0
0011       oo_.steady_state = zeros(size(oo_.steady_state,1),1) ;
0012     end
0013     oo_.y_simul = oo_.steady_state*ones(1,period+M_.maximum_lag+M_.maximum_lead) ;
0014     if endval_ == 1
0015       oo_.y_simul(:,1:M_.maximum_lag) = ys0_*ones(1,M_.maximum_lag) ;
0016     end
0017   end
0018 
0019   i = M_.lead_lag_incidence';
0020   iyr0 = find(i(:));
0021 
0022   y =oo_.y_simul(:);
0023   z = zeros(n,period);
0024   fh = str2func([M_.fname '_dynamic']);
0025   for it_=M_.maximum_lag+1:period+M_.maximum_lag
0026     z(:,it_-M_.maximum_lag) = feval(fh,y(iyr0),oo_.exo_simul);
0027     iyr0 = iyr0 + n;
0028   end
0029 
0030   disp([[1:period]' z']); 
0031 
0032 
0033 
0034 
0035 
0036