function F = BTL_I_NSS(x)

global p_theta p_nu p_beta p_delta p_mu p_alpha xi p_epsilon p_phi p_sigma yi p_u

C_b = x(1); 
H_b = x(2); 
w_b = x(3);
C_s = x(4); 
H_s = x(5);  
w_s = x(6);
C_p = x(7);
H_r = x(8);
w_p = x(9);
q_r = x(10);
    


Calib1 = (1-(p_theta-p_beta)*p_mu-p_beta*(1-p_delta));

Calib2 = ((p_epsilon-1)/p_epsilon);

Calib3 = ((1-xi-yi)/p_epsilon);

Calib4 = (p_theta-p_beta)*p_mu;




F(1) = Calib2^p_phi*p_nu^p_phi*((p_delta*H_b)+(p_delta*H_s)+C_b+C_s+C_p)^p_phi...
       -w_p^(p_phi+1)*p_alpha*C_p^(p_alpha-1)*H_r^(1-p_alpha)...
       *(C_p^p_alpha*H_r^(1-p_alpha))^(-p_sigma); 
 
F(2) = ((C_p^p_alpha*H_r^(1-p_alpha))^(-p_sigma))*(-p_alpha*C_p^(p_alpha-1)*H_r^(1-p_alpha)*q_r...
       +(1-p_alpha)*C_p^p_alpha*H_r^(-p_alpha));
   
F(3) = Calib2*p_nu*((p_delta*H_b)+(p_delta*H_s)+C_b+C_s+C_p)...
       +(yi/p_epsilon)*((p_delta*H_b)+(p_delta*H_s)+(C_b+C_s+C_p))-C_p-(H_r*q_r); 

F(4) = Calib2^p_phi*p_u^p_phi*((p_delta*H_b)+(p_delta*H_s)+C_b+C_s+C_p)^p_phi...
       -w_b^(p_phi+1)*p_alpha*C_b^(p_alpha-1)*(H_b-H_r)^(1-p_alpha)...
       *(C_b^p_alpha*(H_b-H_r)^(1-p_alpha))^(-p_sigma);
   
F(5) = ((1-p_alpha)*C_b-Calib1*p_alpha*(H_b-H_r))*(H_b-H_r)^(-p_alpha)*C_b^(p_alpha-1) ...
       *(C_b^p_alpha*(H_b-H_r)^(1-p_alpha))^(-p_sigma); 

F(6) = ((1-p_alpha)*C_b-(q_r-Calib4)*p_alpha*(H_b-H_r))*(H_b-H_r)^(-p_alpha)...
       *C_b^(p_alpha-1)*(C_b^p_alpha*(H_b-H_r)^(1-p_alpha))^(-p_sigma); 

F(7) = (H_r*q_r)+Calib2*p_u*((p_delta*H_b)+(p_delta*H_s)+C_b+C_s+C_p)...
       +p_theta*p_mu*(H_b-H_r)+Calib3*((p_delta*H_b)+(p_delta*H_s)+C_b+C_s+C_p)....
       -C_b-(p_delta*H_b)-p_mu*(H_b-H_r); 

F(8) = Calib2^p_phi*(1-p_u-p_nu)^p_phi*((p_delta*H_b)+(p_delta*H_s)+C_b+C_s+C_p)^p_phi...
       -w_s^(p_phi+1)*p_alpha*C_s^(p_alpha-1)*(H_s)^(1-p_alpha)...
       *(C_s^p_alpha*(H_s)^(1-p_alpha))^(-p_sigma);  

F(9) = ((1-p_alpha)*C_s-(1-p_theta*(1-p_delta))*H_s*p_alpha)*H_s^(-p_alpha)*C_s^(p_alpha-1)...
       *(C_s^p_alpha*H_s^(1-p_alpha))^(-p_sigma); 

F(10) = Calib2-((w_s/(1-p_u-p_nu))^(1-p_u-p_nu))*((w_b/p_u)^p_u)*((w_p/(p_nu))^(p_nu)); 




end