%compute the steady state
function [ys,params,check] = codenew_steadystate(ys,exo,M_,options_)

NumberOfParameters = M_.param_nbr;
for ii = 1:NumberOfParameters
  paramname = M_.param_names{ii};
  eval([ paramname ' = M_.params(' int2str(ii) ');']);
end
% initialize indicator
check = 0;

%% THIS BLOCK IS MODEL SPECIFIC.
%%
%% Here the user has to define the steady state.

%%
R_1=[0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01 0.01];
fun = @(c) fun_code(c,mu,sigma,beta_e,beta_u,etaa,chi,gammaa,theta,vepsilon,nu,Te,psi_vsigma,rho_tau);
options=optimset('MaxFunEvals',10000,'MaxIter',10000,'Display','off');
c=fsolve(fun,R_1,options);

C = c(1);
Ce= c(2);
Cu= c(3);
W= c(4);
He= c(5);
H= c(6);
MC= c(7);
Y= c(8);
Lu= c(9);
L= c(10);
De= c(11);
D= c(12);
N= c(13);
xd= c(14);
zl= c(15);
Phi= c(16);
Tu= c(17);
tau= c(18);
Ue= c(19);
Welf_e = c(20);
Uu= c(21);
Welf_u = c(22);
%%
Pi=0;
A=1;
Rl= 1/beta_u -1;
R= 1/beta_e - 1;
vsigma=Rl-R;
Lambda= beta_e;
% Ue = log(Ce) - chi*(1+(1/etaa))*(c(5)^(1+1/etaa));
%% DO NOT CHANGE THIS PART.
%%
%% Store model parameters
params=NaN(NumberOfParameters,1);
for iter = 1:length(M_.params) %update parameters set in the file
  eval([ 'params(' num2str(iter) ') = ' M_.param_names{iter} ';' ])
end

NumberOfEndogenousVariables = M_.orig_endo_nbr; %auxiliary variables are set automatically
for ii = 1:NumberOfEndogenousVariables
  varname = M_.endo_names{ii};
  eval(['ys(' int2str(ii) ') = ' varname ';']);
end

end                                                  % End of the loop.
%%                                                         % End of the loop.