Problema 25

Código de programación Matlab

% PROBLEMA 25

clc
format compact
% Una placa de orificio de 1/2 in fue instalada en una tubería de acero
% comercial cedula 40, por la tubería fluye aire seco a 70°F y 15 psig, la
% placa de orificio está conectada con un manómetro en U, con una dr=0.831,
% con una lectura del líquido manométrico de 75 cm.
% Determine:
% a) Gasto y masa de aire en la tubería
% b) Energía perdida por fricciones en la placa de orificio

Di=input(‘Valor del diámetro interno de la tubería ‘);
%Di=0.1722
S=input(‘Valor del área de la tubería ‘);
%S=0.0233
dr=input(‘Valor de la densidad relativa de la sustancia ‘);
%dr=0.831
M=input(‘Valor del peso molecular {del fluido ‘);
%M=29
T=input(‘Valor de la temperatura [°R] ‘);
%T=530
P=input(‘Valor de la presión ‘);
%P=378.2
R=input(‘valor de la constante de los gases ideales ‘);
%R=1545
hm=input(‘Valor de lectura del manómetro ‘);
%hm=1.148
da=input(‘Valor de la densidad del agua ‘);
%da=62.371
g=32.2;
gc=32.2;
Co=0.62;
D2=input(‘Valor del diámetro interno del orificio de la placa de orificio ‘);
%D2=0.0916
disp(‘El valor de la densidad está dado en [lb/ft^3]’)
d1=dr*da
d2=(M*P)/(R*T)
disp(‘La diferencia de presión está dada en [lbf/ft^2]’)
dp=hm*(d1-d2)*(g/gc)
a=2*gc*(dp/d2);
b=(Di/D2)^(4)-1;
disp(‘Las unidades de w son [lb/s]’)
w=d2*S*Co*sqrt(a/b)
disp(‘El valor del Hfs es [lbf.ft/lb]’)
hfs=dp/d2