function S=extrat(x)
Ps=0.4;   % R$/kg-soluto
Px=0.01;  % R$/kg-solvente
F=1e4;    % kg-agua/h
xo=0.02;  % kg-soluto/kg-agua
s=7e-4;   % kg-solvente/kg-agua
%s=0;      % kg-solvente/kg-agua
m=4;      % kg-agua/kg-solvente

a=Ps*F*xo+2*Px*F/m-Px*F*s;
b=Px*F*xo/m;
c=Ps*F;
d=Px*F/m;

L=a-b./x(1)-c*x(2)-d*x(1)./x(2);
S=-L;
