steady

 Copyright (C) 2001 Michel Juillard

0001 % Copyright (C) 2001 Michel Juillard
0002 %
0003 function steady(linear)
0004 
0005   global M_ oo_ options_ ys0_ 
0006 
0007   options_ = set_default_option(options_,'jacobian_flag',1);
0008 
0009   steady_;
0010   
0011   disp(' ')
0012   disp('STEADY-STATE RESULTS:')
0013   disp(' ')
0014   endo_names = M_.endo_names;
0015   steady_state = oo_.steady_state;
0016   for i=1:size(oo_.steady_state,1)
0017     disp(sprintf('%s \t\t %g',endo_names(i,:),steady_state(i)));
0018   end
0019   
0020   if isempty(ys0_)
0021     oo_.y_simul(:,1:M_.maximum_lag) = oo_.steady_state * ones(1,M_.maximum_lag);
0022   else
0023     options_ =set_default_option(options_,'periods',1);
0024     oo_.y_simul(:,M_.maximum_lag+1:M_.maximum_lag+options_.periods+M_.maximum_lead) = oo_.steady_state * ones(1,options_.periods+M_.maximum_lead);
0025   end
0026   
0027 % 06/24/01 MJ steady print results; steady_ doesn't
0028 % 09/22/01 FC corrected lgy(i,:)
0029 % 05/29/03 MJ sets initial values of oo_.y_simul