0% encontró este documento útil (0 votos)
88 vistas2 páginas

Problema 2

Este documento describe un sistema que se utiliza para enfriar el efluente de un reactor y separar los gases ligeros de los hidrocarburos más pesados. Se calcula la composición y la velocidad de flujo del vapor que sale de la cámara de flash, y no se ve afectado por la velocidad de flujo del líquido agotado.
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
0% encontró este documento útil (0 votos)
88 vistas2 páginas

Problema 2

Este documento describe un sistema que se utiliza para enfriar el efluente de un reactor y separar los gases ligeros de los hidrocarburos más pesados. Se calcula la composición y la velocidad de flujo del vapor que sale de la cámara de flash, y no se ve afectado por la velocidad de flujo del líquido agotado.
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

7.

4 El sistema que se representa seguidamente se utiliza para enfriar el efluente de un


reactor y separar los gases ligeros de los hidrocarburos más pesados. Calcúlese la
composición y la velocidad de flujo del vapor que sale de la cámara de flash ¿influye sobre
el resultado la velocidad de flujo del líquido agotado?

Valores K para los componentes a 500 psia y 100°F:

Solución:
Codigo:

clear all
clc
%Compuestos (Hidrogeno, Metano, Benceno, Tolueno)
Ki =[80, 10, 0.010, 0.004];
Zi=[0.4347, 0.4347, 0.1086, 0.022];
F=input('Ingresa el flujo: ');
P=input('Ingresa la presion: ');%500;%psia
T=input('Ingresa la temperatura: ');%100;%°F

E=50;%Error
H=0.001;%Tolerancia
U=0;%fraccion vaporizada "supuesta"
n=4; %Numero de pasos
while E>H
S=0;
for i=1:n
S=((Zi(i)*(Ki(i)-1))/(1+U*(Ki(i)-1)))+S; %Ecuacion de Rachford-
Rise
end
E=S;
U=U+0.01;
end
for i=1:n
Yi(i)=(Zi(i)*Ki(i))/(1+U*(Ki(i)-1));%Fraccion de Vapor
end
Yi
for i=1:n
Xi(i)=(Zi(i))/(1+U*(Ki(i)-1));%Fraccion del liquido
end
Xi
V=F*U
L=F-V

También podría gustarte