Problema 23

Código de programación Matlab

% PROBLEMA 23

clc
clear
format compact

% Agua a 60°F con un flujo de 1.2 ft^3/s fluye a través de una expansión de
% 4x8in. Calcule la caída de presión de la expansión.

g=zeros(4,n)
for j=1:n
g(1,j)=input(‘Valor de la tubería ‘)
g(2,j)=input(‘Valor del diámetro interno de la tubería ‘)
g(3,j)=input(‘Valor del área por tubería ‘)
g(4,j)=input(‘Valor de la velocidad ‘)
end

gc=32.2;
kexp=[1-(g(2,1)^(2)/g(2,2)^2)]^(2)
a=(g(4,2)^2-g(4,1)^2)/(2*gc);
b=(g(4,2)^2*kexp^2)/(2*gc);
disp(‘La caída de presión tiene las siguientes unidades [lb/ft^2]’)
dp=-(a+b)*d
disp(‘La caída de presión tiene las siguientes unidades [lb/in^2]’)
dp1=dp/144