% basic_2_steadystate.m


 function [ys,check] = basic_2_steadystate(ys,exe)
 
 global M_                  % D. h., dass M_ im folgenden als globale Variable aufzufassen ist.
                           % M_ wird schon in weg_steadystate als global deklariert. 
                           
for i=1:size(M_.params,1);
    setval(M_.param_names(i,:),M_.params(i,1));
end;

 
  check = 0;
%_______________________________
% For non-symmetric models use the next five lines:
% 
 
  load xx;            
  [x,fval,exitflag]=fsolve(@basic_2_ss,xx(1:35));
  
  if exitflag==1; save x; end;
  load vars;
  ys=[x; vars];
 
%_______________________________ 
% For symmetric models use the next two lines:

% Rss=fsolve(@symm_ss,1.03);
% ys=symm_ss_set(Rss);
%_______________________________  

  save ys;