dynare/matlab/resid.m

function resid(period)
%
% function resid(period)
% Computes residuals associated with the guess values
% 
% INPUTS
%    period
%    
% OUTPUTS
%    none
%        
% SPECIAL REQUIREMENTS
%    none
%  
% part of DYNARE, copyright Dynare Team (2001-2008)
% Gnu Public License.



  global M_ options_ oo_ it_ endval_ z
  
  if M_.exo_nbr > 0
    oo_.exo_simul = ones(M_.maximum_lag+M_.maximum_lead+period,1)* ...
	oo_.exo_steady_state';
  end
  n = size(M_.lead_lag_incidence,2);
%  if ~ options_.initval_file | size(oo_.endo_simul,2) ~= period+M_.maximum_lag+M_.maximum_lead
  if ~ options_.initval_file 
    if size(oo_.steady_state,1) == 1 & oo_.steady_state == 0
      oo_.steady_state = zeros(size(oo_.steady_state,1),1) ;
    end
    oo_.endo_simul = oo_.steady_state*ones(1,period+M_.maximum_lag+M_.maximum_lead) ;
  end

  i = M_.lead_lag_incidence';
  iyr0 = find(i(:));

  y =oo_.endo_simul(:);
  z = zeros(n,period);
  fh = str2func([M_.fname '_dynamic']);
  for it_=M_.maximum_lag+1:period+M_.maximum_lag
    z(:,it_-M_.maximum_lag) = feval(fh,y(iyr0),oo_.exo_simul, M_.params, it_);
    iyr0 = iyr0 + n;
  end

  % disp([[1:period]' z']); 

  for i = 1:4
    disp(' ')
  end
  
  for i=1:length(z)
    if abs(z(i)) < 10^(-12)
      z(i) = 0;
    end
    disp(['Residual for equation number ' int2str(i) ' is equal to ' num2str(z(i))])
  end  
  
  for i = 1:2
    disp(' ')
  end