function   f = nobankss(xxx, Ysss, alphaK,  alphaL,  alphaM, sigmmaL, delta, chi, eta, Rc, Rsss, x, Ds)
Y = xxx(1);
e = xxx(2);

Q = 1;
Rk = Rc-1+delta;
aky = alphaK/Rk;
K = aky*Y;
L = (alphaL*Y/chi)^(1/(1+sigmmaL));
M = alphaM*Y/e;
EX = e^eta*Ysss;
Bs = Q*K*x/e;

% Equation system
f1 = Y-(M/alphaM)^alphaM*(K/alphaK)^alphaK*(L/alphaL)^alphaL;
f2 = Bs-Rsss*Bs-M+EX/e-Ds+Rsss*Ds;
f=[f1;f2];