function r = compara(C1,C2)
% Calcula el residuo de la comparación de caudales y composiciones
% de dos corrientes

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

r=v1-v2;