function [CS1,CS2] = divisor(CE,x1)
% Divisor de corriente
% El caudal de la primera corriente de salida es la fracción x1 de la entrada


if length(x1)==1
   if x1 > 1
      error('La corriente de salida no puede ser superior a la entrada');
   end   
   
[FE,xE(:,1),PE,TE]=deal(CE{:});

fE=xE*FE;

fS1=fE*x1;
fS2=fE*(1-x1);

FS1=sum(fS1);
xS1=fS1/FS1;
TS1=TE;
PS1=PE;


FS2=sum(fS2);
xS2=fS2/FS2;
TS2=TE;
PS2=PE;

CS1={FS1;xS1;PS1;TS1};
CS2={FS2;xS2;PS2;TS2};

else
   error('x1 debe ser un escalar');
end
