% symm_ss.m

function eqa=symm_ss(Rss)
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

rss=1/ba1-(1-daa);
wpss=(1-aaa)*(exp(lnAa)/(1+lapa)*(aaa/rss)^aaa)^(1/(1-aaa));
klss=wpss*aaa/(1-aaa)/rss;
ylss=exp(lnAa)*klss^aaa;
css=(ba1*nuc1a*(1/Rss-ba1)/tab1/eta1a)^(1/sa1);
pss=mass/3/css;
lass=tab1*eta1a/pss/(1/Rss-ba1);                   % Das ist lambda
lss=(wpss*pss*lass/(1+lala)/tan1)^(1/xi1);         % Das ist die Arbeit

eqa=ylss-3*css/lss-daa*klss-gass/lss;
end