Código de programación Matlab
% PROBLEMA 4 clc clear format compact % El tanque cilíndrico con extremos semiesféricos se muestra en la siguiente % figura contiene una volátil y vapor. El líquido tiene una densidad de 800 % kg/m3 y la densidad del vapor es insignificante. La presión del vapor es % de 120 KPa (abs) y la presión atmosférica es de 101 KPa (abs). % Determine: a) La lectura de presión relativa en el indicador de presión y % b) la altura (h) del manómetro de mercurio. disp(‘Problema 4.- Para calcular la presión relativa en el indicador de presión y la altura del manómetro’) d1=input(‘¿Cuál es la densidad del líquido [kg/m^3]? ‘); %dl=800 da=input(‘¿Cuál es la densidad del agua [kg/m^3]? ‘); %da=999.64 dm=input(‘¿Cuál es la densidad relativa del mercurio [kg/m^3]? ‘); %dm=13.6 Pv=input(‘¿Cuál es la presión de vapor en Kpa? ‘); %Pv=120 h1=input(‘¿Cuál es la altura del líquido [m]? ‘); %h=1 Patm=input(‘¿Cuál es la presión atmosférica en kPa? ‘); %Patm=101 drl=dl/da pel=drl*da pem=dm*da %factor de conversión a=101.9716; p4=(Pv*a)+(pel*h) p1=Patm disp(‘El valor de la presión relativa en el indicador de presión en [kg/^2]es: ‘) p2=p4 disp(‘La altura del manómetro de mercurio tiene un valor en [m]’) hman=(p4-(Patm*a))/pem