Problema 20

Código de programación Matlab

% PROBLEMA 20

clc
clear
format compact

% Dos depósitos de agua están conectados en serie por dos tuberías de hierro
% fundido, una de ellas tiene un diámetro de 18 in y una longitud de 1000
% ft, mientras que la otra tiene un diámetro de 12 in y una longitud de 200
% ft. Determinar la diferencia de alturas entre las superficies de los
% depósitos cuando la descarga es de 5 ft^3/s y 55°F

Q=input(‘Valor del gasto volumétrico [ft^3/s]’);
%Q=5
v=input(‘Valor de la viscosidad [lb/ft.s]’);
%v=7.728
d=input(‘Valor de la densidad [lb/ft^3]’);
%d=62.6
gc=32.2;

n=2;
g=zeros(7,n)
for j=1:n
g(1,j)=input(‘Diámetro de la tubería en pulgadas ‘)
g(2,j)=input(‘Valor del tramo recto por tubería ‘)
g(3,j)=input(‘Valor del Diámetro interno por tubería ‘)
g(4,j)=input(‘Valor del área por tubería ‘)
g(5,j)=g(2,j)/g(3,j)
g(6,j)=input(‘Valor del factor de fricción ‘)
g(7,j)=g(6,j)*g(5,j)
end
disp(‘Las velocidades tienen unidades [ft/s]’)
Ua=Q/g(4,1)
Ub=Q/g(4,2)
o=g(3,2)^2/g(3,1)^2;
Kr=[1-o]^2
kta=Kr+g(7,1)
ktb=Kr+g(7,2)
disp(‘Las unidades del Hfs [lbf ft/lb]’)
Hfsa= (kta*Ua*Ua)/(2*gc)
Hfsb= (ktb*Ub*Ub)/(2*gc)
disp(‘La unidad para dz es [ft]’)
dz=((ub*ub)/(2*gc))+Hfsa+Hfsb