Código de programación Matlab
% PROBLEMA 12
clc; format short g;
clear
format compact;
% Se va a bombear benceno líquido a 25°C desde un tanque de almacenamiento hasta
% un reactor químico, a través de 50m de tubo de acero comercial de 2 in. La
% línea contiene: 2 codos de 90 estándar y una válvula de compuerta
% totalmente abierta. El reactor se encuentra 200m por encima del nivel del
% líquido en el tanque de almacenamiento. El tanque esta venteado a la
% atmósfera y el reactor opera a una presión de 500 KN/m^2
p1abs=input(‘Valor de la presión absoluta 1 ‘);
%p1abs=2116.8
p2abs=input(‘Valor de la presión absoluta 2 ‘);
%p2abs=612558.43
Q=input(‘Valor del gasto en [ft^3/s] ‘);
%Q=3.5314
dz=input(‘valor de la diferencia de alturas ‘);
%dz=656.166
D1=input(‘Valor del diámetro interno de la tubería ‘);
%Di=.1722
S=input(‘Valor del área de la tubería de acuerdo a la cedula ‘);
%S=.0233
tr=input(‘Valor del tramo recto de la tubería ‘);
%tr=50
d=input(‘Valor de la densidad de la sustancia ‘);
%d=54.5
u1=0;
u2=Q/S
disp(‘Ahora introduce los accesorios ‘)
n=input(‘Cuantos accesorios tienes en el sistema ‘);
g1=32.2;
gc=32.2;
g=zeros(n,5)
for j=1:n
disp(‘Antes de introducir los datos recuerda asignar un número determinado para cada accesorio por ejemplo 1=entrada, 2=codo de 90°, 3= VCTA, etc.’)
g(j,1)=input(‘Nombre del accesorio ‘);
g(j,2)=input(‘Cantidad del accesorio anterior ‘);
g(j,3)=input(‘L/D del accesorio anterior ‘);
g(j,4)=input(‘Valor de Ki Tabla A-50 Crane ‘);
g(j,5)=g(j,2)*g(j,4)
fprintf(‘\n Accesorio Cantidad L/D Ki Kt\n’)
g
ktot=g(:,5);
ktot2=sum(ktot)
end
Flujo de Fluidos 