%Archivo llamado desde amo3_8.m 
%Resuelve un balance a inertes y uno a H2+N2
function f=equ(X,xp,E_N2,S,xs,xf_in)

f(1)=X(1)*(xp(4)+xp(5))-X(2)*xf_in; %X(1)=P, X(2)=F
f(2)=X(1)*(xp(1)+xp(2))+4*E_N2-S*(xs(1)+xs(2))-X(2)*(1-xf_in);