% Simulación de un separador con reciclo

format short g

% Corriente de entrada
f4=[1409.5; 1276.5; 119.1; 36.0; 2.1] % kmol/h
T4=681.3 % C
P4=37.7 %bar

F4=sum(f4)
x4=f4/F4

C4={F4;x4;P4;T4}
C16i=C4

% Proceso
for i=1:6
CE=mezclador(C4,C16i);
[C5,CC]=separador(CE,[0.1;0.1;0.9;0.9;0.1]);
[C6,C16]=divisor(CC,0.8);

res(:,i)=compara(C16i,C16);
C16i=C16;
end

res

tbalance(C4,C5,CC,C6,C16)




