Código de programación Matlab
% PROBLEMA 7 clc clear format compact % Petróleo a razón de 50 gal/min fluye continuamente del tanque A al tanque % B a través de una tubería de 3000 ft y 3 in de diámetro, la tubería es % cédula 40. El aceite tiene una densidad de 62.3 lb/ft^3 y una viscosidad % de 50cp. Los niveles de ambas superficies son los mismos en ambos tanques. % El tanque B esta ventilado con la atmósfera. ¿Cuál es la presión relativa % en el tanque A para que exista este tipo de flujo? L=input(‘Dame el valor de la longitud de la tubería [ft]= ‘); %L=3000 Q=input(‘Valor del gasto o flujo [ft^3/s] = ‘); %Q=0.114 v=input(‘¿Cuál es la viscosidad del fluido [lb/ft.s]? ‘); %v=0.0336 d=input(‘Valor de la densidad [lb/ft^3]= ‘); %d=62.3 Patm=input(‘Valor de la presión atmosférica [lb/ft^2] = ‘); %Patm=2116.8 Di=input(‘Diámetro interno de la tubería según la cédula = ‘); %Di=.2557 gc=32.2; disp(‘El valor de la velocidad tiene unidades [ft/s]’) u=Q/((pi/4)*Di^2) Nre=(Di*d*u)/v disp(‘La caída de presión esta dada en [lbf/ft^2]’) dp=(32*u*v*L)/(gc*Di^2) disp(‘La caída de presión esta dada en [KPa]’) DP=(dp*101325)/(2116.8*100 disp(‘La presión 1 esta dada en [lbf/ft^2]’) p1=dp+Patm