function [CS1,CS2] = separador(CE,x1)
% Separador por especificación de fracción de componentes
% En la primera corriente de salida va la fracción x1_i del componente
% i que entra en el bloque. x1 es un vector.

[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};

