function CS = mezclador(C1,C2,varargin)
% Mezcla de un número cualquiera de corrientes de entrada
% El balance de energía supone igualdad de calores específicos
% La presión de salida es la mínima de la de las entradas

nca=length(varargin);

[F(1),x(:,1),P(1),T(1)]=deal(C1{:});
[F(2),x(:,2),P(2),T(2)]=deal(C2{:});

if  nca > 0 
   for i=1:nca
     [F(i+2),x(:,i+2),P(i+2),T(i+2)]  = deal(varargin{i}{:});
   end
end

FS=sum(F);
fS=x*F';
xS=fS/FS;

TS=T*F'/FS;

PS=min(P);

CS={FS;xS;PS;TS};

