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;

endfunction
