FACULTAD DE INGENIERÍA QUÍMICA

ESCUELA PROFESIONAL DE INGENIERÍA QUÍMICA

TRABAJO DE RECUPERACIÓN

CURSO:

Mecánica de Fluidos

SECCIÓN: A

CICLO: V

UNIDAD: 1
INTEGRANTES:

 Rodríguez Saavedra Luis Miguel

SEMESTRE: 2025 - I
DOCENTE:

Ing. PAUL HENRY ESQUERRE PEREYRA

 2

Ejercicios de la primera unidad

MECÁNICA DE FLUIDOS / HIDROSTÁTICA

Cálculo de la presión de un fluido en equilibrio

1. Un depósito cerrado contiene 60 cm de mercurio (ρ = 13.6), 150 cm de agua y 240 cm de

aceite (ρ = 0.75), conteniendo aire el espacio sobre el aceite. Si la presión absoluta en el
fondo es de 3 bar ¿a qué presión se encuentra el aire?

Solución:

A continuación, se presenta el procedimiento de resolución diseñado en Matlab, con datos

para ingresar como lo son: presión en el fondo (en Pascal); altura alcanzada por cada
líquido dentro del depósito (en metros).
Se considera los valores de densidades convencionales para el mercurio, agua y aceite, y
un valor de la gravedad de 9.81 m / s 2. Inicialmente son determinados los aportes de
presión de cada líquido para con ello realizar el cálculo de la presión en la que se
encuentra el aire al restar la sumatoria de estos valores, a la presión que hay en el
fondo del depósito (previamente calculando “pesos específicos de cada líquido” y luego
multiplicando por el factor “altura” correspondiente).
Los datos fueron trabajados en unidades de presión Pascal, mientras que el resultado final
de la presión de aire obtenida fue brindado tanto en Pascal como en bar. Finalmente, se
graficaron los resultados como aportes de cada líquido al sistema en Pascales (tabulación
aporte de presión del mercurio, agua y aceite).

Respuesta de ejercicio: La presión del aire en el sistema es 187577.40 Pa (1.876 bar).

Script de Matlab

% ------------------------
% INGRESO DE DATOS
% ------------------------
 % Limpieza del entorno
clc;
clear;

% Presión en el fondo del tanque (Pa)

P_fondo = input('Ingresa la presión en el fondo del tanque (Pa): ');

% Alturas de los fluidos (en metros)

h_mercurio = input('Altura de la columna de mercurio (m): ');
h_agua = input('Altura de la columna de agua (m): ');
h_aceite = input('Altura de la columna de aceite (m): ');

% Densidades de los fluidos (kg/m^3)

rho_mercurio = 13600; % Mercurio
rho_agua = 1000; % Agua
rho_aceite = 750; % Aceite

% Gravedad (m/s^2)
g = 9.81;

% ------------------------
% CÁLCULOS
% ------------------------

% Pesos específicos (N/m^3)

gamma_mercurio = rho_mercurio * g;
gamma_agua = rho_agua * g;
gamma_aceite = rho_aceite * g;

% Presiones aportadas por cada fluido (Pa)

P_mercurio = gamma_mercurio * h_mercurio;
P_agua = gamma_agua * h_agua;
P_aceite = gamma_aceite * h_aceite;

% Presión del aire (Pa)

P_aire = P_fondo - (P_mercurio + P_agua + P_aceite);

% ------------------------
% SALIDA DE RESULTADOS
% ------------------------
fprintf('\n--- RESULTADOS ---\n');

--- RESULTADOS ---

fprintf('Presión del aire: %.2f Pa (%.3f bar)\n', P_aire, P_aire / 1e5);

--- RESULTADOS ---

 4

fprintf('Presión del aire: %.2f Pa (%.3f bar)\n', P_aire, P_aire / 1e5);

Presión del aire: 187577.40 Pa (1.876 bar)

fprintf('Aporte por mercurio: %.2f Pa\n', P_mercurio);

Aporte por mercurio: 80049.60 Pa

fprintf('Aporte por agua: %.2f Pa\n', P_agua);

Aporte por agua: 14715.00 Pa

fprintf('Aporte por aceite: %.2f Pa\n', P_aceite);

Aporte por aceite: 17658.00 Pa

% ------------------------
% GRAFICACIÓN
% ------------------------

figure;
bar([P_mercurio, P_agua, P_aceite], 'FaceColor', [0.2 0.6 0.8]);
set(gca, 'xticklabel', {'Mercurio', 'Agua', 'Aceite'});
ylabel('Presión Aportada (Pa)');
title('Aporte de Presión de Cada Fluido al Sistema');
grid on;
 MECÁNICA DE FLUIDOS / HIDRODINÁMICA

Medición de flujo volumétrico mediante el efecto Venturi, aplicando el principio de

Bernoulli y el principio de continuidad para relacionar la velocidad del fluido con la
sección transversal del conducto y calcular caudales

2. Un medidor Venturi es un dispositivo que utiliza una reducción en un sistema de flujo para medir
la velocidad de este. La figura muestra un diseño. Si la selección principal del tubo es estándar
de 4 pulgadas, tipo K de cobre, calcule el flujo volumétrico cuando la velocidad sea de 3.0 m/s.
Después para dicho flujo volumétrico, especifique el tamaño de la sección de la garganta
que permitiría una velocidad de al menos 15.0 m/s.

Solución:

A continuación, se presenta el procedimiento de resolución diseñado en Matlab, con datos

para ingresar como lo son: velocidad de sección principal, en m/s; velocidad deseada
en la garganta, en m/s; diámetro de la sección principal, en pulgadas.

Inicialmente interconvertidas las unidades empleadas para los diámetros (de plg a metros)
para con ello determinar el área de la sección principal empleando el área de la sección
(fórmula de sección cilíndrica). Luego. se encontrará el flujo volumétrico en la sección
principal, al multiplicar el área hallada y la velocidad de la sección. Seguidamente, con el
mismo procedimiento se halla el área de la garganta, con la que se obtendrá el diámetro
que debe tener la garganta, al final pasamos el diámetro a milímetros para entregar el
resultado. Finalmente, se graficaron los resultados como velocidad de flujo vs área de la
sección.
 6

Respuesta de ejercicio:

Áreas de las secciones

Área de la sección principal (A1): 0.008107 m²
Área requerida para la garganta (A2): 0.001621 m²
Diámetro necesario en la garganta
Diámetro requerido para la garganta: 0.0454 m (45.44 mm)
Velocidades de cada sección
Velocidad verificada sección principal: 3.00 m/s
Velocidad verificada garganta: 15.00 m/s

Script de Matlab

% ------------------------
% INGRESO DE DATOS
% ------------------------

clc;
clear;
close all;

disp('--- Datos de Entrada: Medidor Venturi ---');

--- Datos de Entrada: Medidor Venturi ---

% Entradas del usuario

V1 = input('Ingrese la velocidad en la sección principal (m/s) [Ej: 3.0]:
'); % 3.0 m/s
V2 = input('Ingrese la velocidad deseada en la garganta (m/s) [Ej: 15.0]:
'); % 15.0 m/s
D1_in = input('Ingrese el diámetro de la sección principal (pulgadas) [Ej:
4]: '); % 4 pulgadas

% Conversión de unidades
D1_m = D1_in * 0.0254; % 1 pulgada = 0.0254 metros

% Área de la sección principal

 A1 = (pi * D1_m^2) / 4; % m²

% Flujo volumétrico en la sección principal

Q = A1 * V1; % m³/s

% Área de la garganta
A2 = Q / V2; % m²

% Diámetro de la garganta
D2_m = sqrt(4 * A2 / pi); % metros
D2_mm = D2_m * 1000; % en milímetros

disp(' ');

disp('--- Resultados ---');

--- Resultados ---

fprintf('Área de la sección principal (A1): %.6f m²\n', A1);

Área de la sección principal (A1): 0.008107 m²

fprintf('Flujo volumétrico (Q): %.6f m³/s\n', Q);

Flujo volumétrico (Q): 0.024322 m³/s

fprintf('Área requerida para la garganta (A2): %.6f m²\n', A2);

Área requerida para la garganta (A2): 0.001621 m²

fprintf('Diámetro requerido para la garganta: %.4f m (%.2f mm) \n', D2_m,

D2_mm);

Diámetro requerido para la garganta: 0.0454 m (45.44 mm)

% Verificación: recalcular velocidades con áreas obtenidas

V1_verif = Q / A1;
V2_verif = Q / A2;
fprintf('Velocidad verificada sección principal: %.2f m/s \n', V1_verif);

Velocidad verificada sección principal: 3.00 m/s

fprintf('Velocidad verificada garganta: %.2f m/s\n', V2_verif);

Velocidad verificada garganta: 15.00 m/s

 8

%% --- Gráfica: Relación entre Área y Velocidad ---

A_range = linspace(A2, A1, 100); % Área entre garganta y sección principal
V_range = Q ./ A_range; % Velocidad correspondiente

figure;
plot(A_range, V_range, 'LineWidth', 2, 'Color', 'b');
grid on;
xlabel('Área de la sección (m²)');
ylabel('Velocidad de flujo (m/s)');
title('Relación Área - Velocidad en Medidor Venturi');
legend('Velocidad vs Área');
xlim([min(A_range) max(A_range)]);
ylim([min(V_range) max(V_range)]);
MECÁNICA DE FLUIDOS / HIDRODINÁMICA / ECUACIÓN DE BERNOULLI – ECUACIÓN
DE CONTINUIDAD

Cálculo de presión en la tubería

3. Por la tubería de la figura fluyen 0.11 m 3/s de gasolina (sg = 0.67). Si la presión antes de la
reducción es de 415 kPa, calcule la presión en la tubería de 75 mm de diámetro.

Solución:

A continuación, se presenta el procedimiento de resolución diseñado en Matlab, con datos

para ingresar como lo son: diámetro mayor - diámetro menor, en metros; flujo
volumétrico de la gasolina, en m^3/s; presión inicial (antes de la reducción), en KPa;
gravedad específica (adimensional).

Se considera el valor de densidad convencional para el agua y el valor de SG de la y un

valor de la gravedad de 9.81 m / s 2.
Inicialmente interconvertidas las unidades empleadas para los diámetros interiores (de mm
a metros) para con ello determinar el área de la sección del diámetro interior tomado. Luego.
teniendo el flujo volumétrico que ingresó a la sección principal, y despejar de la ecuación
de continuidad se obtendrá la velocidad de la sección (V1) y por despeje la velocidad en
2 (V2). Posteriormente, de la ecuación de continuidad se encontrará las presiones
correspondientes como presión inicial y presión final. Finalmente, se graficaron los
resultados como comparación de presiones inicial y final en kiloPascal.
 10

Respuesta del ejercicio:

Áreas de las secciones

Área 1: 0.017671 m²
Área 2: 0.004418 m²

Velocidades de cada sección

Velocidad en la tubería grande (V1): 6.22 m/s
Velocidad en la tubería pequeña (V2): 24.90 m/s

Presiones en el sistema
Presión inicial (P1): 450.00 kPa
Presión final (P2): 255.30 kPa

clc;
clear;
close all;

% Datos de entrada
disp('Ingrese los siguientes datos:');

Ingrese los siguientes datos:

D1 = input('Diametro mayor (m): '); % Ejemplo: 0.150 m

D2 = input('Diametro menor (m): '); % Ejemplo: 0.075 m
Q = input('Flujo de gasolina (m^3/s): '); % Ejemplo: 0.11 m³/s
P1 = input('Presion inicial (kPa): '); % Ejemplo: 415 kPa
sg = input('Gravedad especifica (SG) de la gasolina: '); % Ejemplo: 0.67

% Constantes
g = 9.81; % m/s²
rho_agua = 1000; % kg/m³ (densidad del agua)
rho_gasolina = sg * rho_agua; % kg/m³

% Cálculo de áreas
A1 = pi * (D1/2)^2; % m²
A2 = pi * (D2/2)^2; % m²

% Cálculo de velocidades
V1 = Q / A1; % m/s
V2 = Q / A2; % m/s

% Aplicación de Bernoulli

% P en Pa: P (Pa) = P (kPa) * 1000

P1_Pa = P1 * 1000;
 P2_Pa = P1_Pa + 0.5 * rho_gasolina * (V1^2 - V2^2);

% Convertir P2 a kPa

P2 = P2_Pa / 1000; % kPa

% Mostrar resultados

fprintf('\nResultados:\n');

Resultados:

fprintf('Área 1: %.6f m²\n', A1);

Área 1: 0.017671 m²

fprintf('Área 2: %.6f m²\n', A2);

Área 2: 0.004418 m²

fprintf('Velocidad en la tubería grande (V1): %.2f m/s\n', V1);

Velocidad en la tubería grande (V1): 6.22 m/s

fprintf('Velocidad en la tubería pequeña (V2): %.2f m/s\n', V2);

Velocidad en la tubería pequeña (V2): 24.90 m/s

fprintf('Presión inicial (P1): %.2f kPa\n', P1);

Presión inicial (P1): 450.00 kPa

fprintf('Presión final (P2): %.2f kPa\n', P2);

Presión final (P2): 255.30 kPa

% Crear gráfica de comparación

figure;
bar([P1, P2]);
set(gca, 'XTickLabel', {'Presión Inicial', 'Presión Final'});
ylabel('Presión (kPa)');
title('Comparación de Presiones en el Sistema');
grid on;
 12

MECÁNICA DE FLUIDOS / HIDRODINÁMICA

Cálculo del diámetro mínimo para evitar sedimentación y análisis del régimen de flujo

4. Una planta industrial en Trujillo, La Libertad, necesita diseñar una red de tuberías
para transportar diferentes fluidos a un caudal constante de 4 L/min. Los fluidos que se
manejarán son: agua, gasolina y un aceite combustible pesado. Para asegurar la eficiencia
operativa y minimizar problemas de mantenimiento, el diseño de la tubería debe cumplir
con las siguientes condiciones:
 Evitar la sedimentación: La velocidad promedio del fluido en la tubería debe ser
suficiente para prevenir la decantación de posibles partículas o impurezas que
puedan generar obstrucciones. Se considera que una velocidad mínima de 0.6 m/s
es deseable para evitar problemas de sedimentación en estos líquidos.
 Analizar el régimen de flujo: Es crucial determinar si el flujo resultante es laminar o
turbulento para cada fluido, ya que esto influye en las pérdidas de carga, la
transferencia de calor y la mezcla. Se utilizarán los criterios de Número de Reynolds:
o Flujo Laminar: Re<2300
o Flujo Turbulento: Re>4000
 Propiedades físicas promedio de los fluidos a 20°C:

Agua: Densidad (ρ): 998 kg/m 3; Viscosidad Dinámica (μ): 1.00×10−3 Pa⋅s

Gasolina: Densidad (ρ): 720 kg/m3; Viscosidad Dinámica (μ): 2.9×10−4 Pa⋅s

Aceite Combustible Pesado: Densidad (ρ): 1000 kg/m3; Viscosidad Dinámica (μ):
0.2 Pa⋅s

En base a los datos dados realice los cálculos correspondientes para cada uno de los
tres fluidos, además de entregar lo siguiente:

a. Calcule el diámetro de tubería (en mm) que se recomendaría para cada fluido,
asegurando que la velocidad promedio del flujo sea igual o superior a la velocidad
mínima deseada para evitar sedimentación (0.6 m/s).

b. Para el diámetro recomendado en el punto (a), determine el Número de Reynolds

y clasifique el régimen de flujo (laminar o turbulento).

c. Analice el diámetro máximo teórico (en mm) que permitiría mantener un flujo
laminar (Re≤2300) para cada fluido bajo el caudal dado. Evalúe si la velocidad
resultante para este diámetro laminar sería práctica y si cumpliría con el criterio de no
sedimentación.

Solución:

A continuación, se presenta el procedimiento de resolución diseñado en Matlab, con datos

para ingresar como lo son: nombre del fluido; densidad del fluido (en kg / m3),
viscosidad dinámica del fluido (en Pa*s) y caudal requerido (en L/min).

En primer lugar, realizar las conversiones de unidades de caudal convirtiendo los L/min a
m 3/s, luego establecer la velocidad mínima y máxima de flujo donde esté fuera de la
sedimentación, además establecer los límites de Reynolds para régimen de flujo.
Principalmente, determinar el diámetro basado en la velocidad mínima para la
 14

sedimentación, con ello realizar el cálculo del número de Reynolds para ese diámetro.
Luego determinar a qué régimen corresponde.

Finalmente, se graficaron los resultados como análisis de diámetro y número de Reynolds

en un rango de velocidades hasta acercarse a las que producen sedimentación (gráfica 1:
Diámetro de tubería para flujo vs Velocidad para el fluido; gráfica 2: Número de
Reynolds vs diámetro de tubería para flujo).

Respuesta del ejercicio:

Diámetro recomendado: 7.98 mm
Número de Reynolds con este diámetro: 15.34

% Script MATLAB para calcular el diámetro deseable de una tubería

% Basado en velocidad para evitar sedimentación y régimen de flujo.

clear; clc;

% --- 1. Entrada de Datos del Fluido y Caudal ---

fprintf('--- Cálculo del Diámetro de Tubería --- \n');

--- Cálculo del Diámetro de Tubería ---

fprintf('Por favor, ingrese las propiedades del fluido:\n');

Por favor, ingrese las propiedades del fluido:

fluido_nombre = input('Nombre del fluido (ej. "Agua", "Gasolina", "Ace ite

Pesado"): ', 's');
densidad_kgm3 = input('Densidad del fluido (kg/m³): ');
viscosidad_Pas = input('Viscosidad dinámica del fluido (Pa·s): '); % Pa·s
(Pascal-segundo)

caudal_Lmin = input('Caudal de flujo (L/min): ');

% --- 2. Conversiones de Unidades ---

Q_m3s = caudal_Lmin / (1000 * 60); % Convertir de L/min a m³/s

% --- 3. Definición de Rangos de Velocidad y Criterios de Reynolds ---

% Velocidades sugeridas para evitar sedimentación (referencia general para
líquidos)
% Estos son rangos de velocidad 'segura' en tuberías para líquidos sin
partículas.
% Si el fluido contiene partículas sólidas, la velocidad mínima requerida
sería mayor.
 velocidad_min_sedimentacion_m_s = 0.5; % m/s (valor de referencia, puede
ajustarse)
velocidad_max_sedimentacion_m_s = 1.0; % m/s (valor de referencia, puede
ajustarse)

% Límites de Reynolds para régimen de flujo

Re_laminar_max = 2300; % Límite superior para flujo laminar
Re_turbulento_min = 4000; % Límite inferior para flujo turbulento
(generalmente se busca > 4000)

% --- 4. Cálculo del Diámetro Basado en la Velocidad Mínima para Evitar

Sedimentación ---
fprintf('\n--- Recomendación de Diámetro Basada en Velocidad ---\n');

--- Recomendación de Diámetro Basada en Velocidad ---

% Calcular diámetro para la velocidad mínima de sedimentación

v_min_sed_actual = velocidad_min_sedimentacion_m_s;
D_min_sed_m = sqrt((4 * Q_m3s) / (pi * v_min_sed_actual));
D_min_sed_mm = D_min_sed_m * 1000;

% Calcular el Reynolds para este diámetro

Re_min_sed = (densidad_kgm3 * v_min_sed_actual * D_min_sed_m) /
viscosidad_Pas;

fprintf('Para evitar sedimentación (velocidad > %.1f m/s):\n',

v_min_sed_actual);

Para evitar sedimentación (velocidad > 0.5 m/s):

fprintf(' Diámetro recomendado: %.2f mm\n', D_min_sed_mm);

Diámetro recomendado: 7.98 mm

fprintf(' Número de Reynolds con este diámetro: %.2f\n', Re_min_sed);

Número de Reynolds con este diámetro: 15.34

% --- 5. Análisis del Diámetro para el Límite de Flujo Laminar ---

fprintf('\n--- Análisis del Diámetro para Régimen Laminar ---\n');

--- Análisis del Diámetro para Régimen Laminar ---

% Calcular el diámetro máximo para mantener flujo laminar (Re <= 2300)
% Re = (rho * v * D) / mu => D = (Re * mu) / (rho * v)
% Pero aquí queremos D para Re_laminar_max
 16

% Y v = Q / (pi * D^2 / 4) => v = 4Q / (pi * D^2)

% Sustituyendo v en Re:
% Re = (rho * (4Q / (pi * D^2)) * D) / mu
% Re = (rho * 4Q) / (pi * D * mu)
% D = (rho * 4Q) / (pi * Re * mu)

D_max_laminar_m = (densidad_kgm3 * 4 * Q_m3s) / (pi * Re_laminar_max *

viscosidad_Pas);
D_max_laminar_mm = D_max_laminar_m * 1000;

% Calcular la velocidad para este diámetro (si es que se puede lograr

laminar)
if ~isinf(D_max_laminar_m) && ~isnan(D_max_laminar_m) && D_max_laminar_m >
0
v_laminar_m_s = Q_m3s / (pi * (D_max_laminar_m/2)^2);
fprintf('Diámetro MÁXIMO para mantener flujo laminar (Re <= %.0f): \n',
Re_laminar_max);

fprintf(' Diámetro: %.2f mm\n', D_max_laminar_mm);

fprintf(' Velocidad del fluido: %.2f m/s\n', v_laminar_m_s);
if v_laminar_m_s < v_min_sed_actual
fprintf(' ¡Advertencia! La velocidad para este diámetro laminar
(%.2f m/s) es menor que la mínima para evitar sedimentación (%.1f m/s).\n',
v_laminar_m_s, v_min_sed_actual);
fprintf(' Un flujo laminar para este caudal y fluido podría tener
problemas de sedimentación.\n');
end
else
fprintf('Para este fluido y caudal, el diámetro para flujo laminar es
extremadamente pequeño o no es físicamente relevante para alcanzarlo. \n');
fprintf('El flujo será predominantemente turbulento a menos que el
diámetro sea muy pequeño y la velocidad muy alta.\n');
end

Diámetro MÁXIMO para mantener flujo laminar (Re <= 2300):

Diámetro: 0.05 mm
Velocidad del fluido: 11234.46 m/s

% --- 6. Rango de Velocidades a Evaluar (para gráfica y exploración) ---

fprintf('\n--- Análisis de Diámetro y Reynolds en un Rango de Velocidades -
--\n');

--- Análisis de Diámetro y Reynolds en un Rango de Velocidades ---

num_puntos = 100;
% Rango de velocidades desde 0.1 m/s hasta 5 m/s (ajusta según necesites)
velocidades_m_s = linspace(0.1, 5, num_puntos);
% Inicializar arrays para resultados
diametros_m = zeros(1, num_puntos);
reynolds = zeros(1, num_puntos);

% Calcular diámetro y Reynolds para cada velocidad en el rango

for i = 1:num_puntos
v_actual = velocidades_m_s(i);
diametros_m(i) = sqrt((4 * Q_m3s) / (pi * v_actual));
reynolds(i) = (densidad_kgm3 * v_actual * diametros_m(i)) /
viscosidad_Pas;
end

% Convertir diámetros a mm para mejor visualización

diametros_mm = diametros_m * 1000;

% --- 7. Gráficos ---

figure;

% Gráfico 1: Diámetro vs. Velocidad

subplot(2,1,1);
plot(velocidades_m_s, diametros_mm, 'b-', 'LineWidth', 1.5);
hold on;
% Línea de velocidad mínima para evitar sedimentación
plot([v_min_sed_actual v_min_sed_actual], ylim, 'r--', 'LineWidth', 1);
text(v_min_sed_actual + 0.1, mean(ylim), 'Vel. Mín. Sedimentación',
'Color', 'r', 'VerticalAlignment', 'bottom');
hold off;
xlabel('Velocidad Promedio del Fluido (m/s)');
ylabel('Diámetro de la Tubería (mm)');
title(['Diámetro vs. Velocidad para ' fluido_nombre ' (Q = '
num2str(caudal_Lmin) ' L/min)']);
grid on;
legend('Diámetro', 'Límite Sedimentación', 'Location', 'best');

% Gráfico 2: Número de Reynolds vs. Diámetro

subplot(2,1,2);
plot(diametros_mm, reynolds, 'g-', 'LineWidth', 1.5);
hold on;
% Líneas de los límites de Reynolds
plot(xlim, [Re_laminar_max Re_laminar_max], 'k--', 'LineWidth', 1);
plot(xlim, [Re_turbulento_min Re_turbulento_min], 'm--', 'LineWidth', 1);
text(max(xlim)*0.8, Re_laminar_max + 100, 'Laminar (Re < 2300)', 'Color',
'k', 'VerticalAlignment', 'bottom');
text(max(xlim)*0.8, Re_turbulento_min + 100, 'Turbulento (Re > 4000)',
'Color', 'm', 'VerticalAlignment', 'bottom');
hold off;
xlabel('Diámetro de la Tubería (mm)');
ylabel('Número de Reynolds');
 18

title(['Número de Reynolds vs. Diámetro para ' fluido_nombre]);

grid on;
legend('Reynolds', 'Límite Laminar', 'Límite Turbulento', 'Location',
'best');
set(gca, 'YScale', 'log'); % Escala logarítmica para Re para mejor
visualización de grandes rangos

fprintf('\n--- Análisis Gráfico Completado ---\n');

--- Análisis Gráfico Completado ---

fprintf('La gráfica muestra el diámetro necesario para diferentes

velocidades y el número de Reynolds resultante. \n');

La gráfica muestra el diámetro necesario para diferentes velocidades y el número de Reynolds

resultante.

fprintf('Considere el "diámetro deseable" como aquel que logra una

velocidad por encima del umbral de sedimentación\n');

Considere el "diámetro deseable" como aquel que logra una velocidad por encima del umbral
de sedimentación.