function L=extrat1(x)
Ps=0.4;   % R$/kg-soluto
Px=0.01;  % R$/kg-solvente
Q=1e4;    % kg-agua/h
xo=0.02;  % kg-soluto/kg-agua
%s=7e-4;   % kg-solvente/kg-agua
s=0;      % kg-solvente/kg-agua
k=4;      % kg-agua/kg-solvente

a=Ps*Q*xo+Px*Q/k-Px*Q*s;
b=Ps*Q;
c=Px*Q*xo/k;

L=a-b*x-c./x;
