Flujo alrededor de un obstáculo circular. (Grupo68)

Trabajo realizado por estudiantes
Título	Flujo alrededor de un obstáculo circular. Grupo 68
Asignatura	Teoría de Campos
Curso	2025-26
Autores	Nicolás Rus Pérez, Jeremy García Herrera, Antonio Rodriguez Montes, Franco Luis Santillan, Juan Jose Salhua Palma.
Este artículo ha sido escrito por estudiantes como parte de su evaluación en la asignatura

Un fluido es un medio contínuo deformable con la propiedad de que no transmite tensiónes tangenciales. Estos no tienen una forma definida y por tanto adoptan la forma del recipiente en el que se encuentran, y pueden encontrarse tanto en estado líquido (agua) como gaseoso (aire).

En este trabajo se estudiará el flujo de un fluido alrededor de un obstáculo circular considerando a este un fluido incompresible. Esta propiedad indica que el fluido no disminuye su volumen al serle aplicado una fuerza, y es propia de los fluidos en estado líquido.

Por conveniencia se trabajará en coordenadas con base cilíndrica (polares).

1 Mallado

Se genera a continuación un mallado en el que se representan los puntos interiores a la región ocupada por el fluido. Por convenio se representará el obstáculo circular centrado en el origen de coordenadas y con radio 1. De esta forma la región ocupada por el fluido será todo el exterior de la circunferencia unidad.

El objetivo de realizar este mallado es dividir el medio continuo (la región ocupada por el fluido) en subdominios más pequeños denominados elementos finitos. El conjunto de estos elementos forman el mallado que cubre toda la región y permite realizar cálculos y simulaciones numéricas particulares en cada uno de ellos.

Para ilustrar que el fluido ocupa el exterior de un circulo, se dibujarán los ejes en el intervalo [math][-4,4]×[-4,4][/math].

Región del fluido y obstáculo

r=linspace(1,5,50);                          %Definen el rho (r) y theta (a)
a=linspace(0,2*pi,50);

[R,A]=meshgrid(r,a);                         %Genera el mallado

hold on
X=R.*cos(A);                                 %Parametriza la superficie
Y=R.*sin(A);
Z=0.*R;
mesh(X,Y,0*Z);                               %Dibuja la región  
plot(cos(a),sin(a),'k','lineWidth',1);       %Dibuja el obstáculo
axis([-4 4,-4 4]);                           %Se fijan los ejes 
title ('Regíon Fluido');                     %Definen los ejes y el nombre de la gráfica
xlabel 'EJE X'                               
ylabel 'EJE Y'
hold off

2 Campo de velocidad de las partículas

Una vez definido el mallado de trabajo del fluido y el obstáculo, se procede a calcular las velocidades de las partículas del fluido en los distintos puntos de la región ocupada por el fluido incompresible. Partimos sabiendo que el campo de velocidades viene definido por el gradiente de la siguiente función potencial:

[math]\varphi (\rho ,\theta)=(\rho +\frac{1}{\rho})\cos (\theta ) [/math]

A continuación se representa graficamente la función potencial:

Función potencial en la región del fluido

r=linspace(1,5,30);                             %Define rho (r) y theta (a)
a=linspace(0,2*pi,30);

[R,A]=meshgrid(r,a);                            %CGenra el mallado

hold on
X=R.*cos(A);                                    %Parametrización la superficie
Y=R.*sin(A);

f=@(r,a)(r+(1./r)).*cos(a);                     %Define la función potencial
Z=f(R,A);                                       
surf(X,Y,Z);                                    %Representa la función
plot(1*cos(a),1*sin(a),'k','lineWidth',3);      %Representa el obstáculo  
axis([-4,4,-4,4]);
colorbar;                                       %Añade la barra de colores, define el titulo de la gráfica y los ejes 
title ('Función potencial');
xlabel ('EJE X');
ylabel ('EJE Y');
hold off

Para calcular el campo de velocidades de las partículas del fluido es necesario el campo gradiente de la funcion potencial anterior, y dicho gradiente viene definido por la siguiente expresión:

\(\nabla f(\rho, \theta, z) = \frac{\partial f}{\partial \rho} \vec e_\rho + \frac{1}{\rho} \frac{\partial f}{\partial \theta} \vec e_\theta + \frac{\partial f}{\partial z} \vec e_z\)

Aplicando dicha expresión a la función potencial, el gradiente resultante sera:

[math] \vec u(\vec e_\rho,\vec e_\theta,\vec e_z)=\nabla \varphi=[(1-\frac{1}{\rho^2})\cos(\theta)]\vec e_\rho-[(1+\frac{1}{\rho^2})\sin(\theta)]\vec e_\theta [/math]

Dado que la representación en MATLAB se realiza en coordenadas cartesianas [math](\vec i,\vec j,\vec k)[/math], y el gradiente calculado se encuentra en coordenadas ciliíndricas [math](\vec e_\rho,\vec e_\theta,\vec e_z)[/math] ,debemos de pasar el gradiente de la función potencial a las primeras. Esto es posible gracias a la matriz de cambio de base entre coordenadas cilíndricas y cartesianas, por lo que la multiplicamos por el vector gradiente dado [math](\vec u)[/math] en coordenadas cilíndricas.

Matriz de cambio de base de coordenadas cilindricas a coordenadas cartesianas:

\begin{pmatrix} \vec i\\ \vec j\\ \vec k\\ \end{pmatrix} = \begin{pmatrix} \cos \theta & -sen \theta & 0\\ sen \theta & \cos \theta & 0\\ 0 & 0 & 1 \end{pmatrix} \begin{pmatrix} \vec e_\rho\\ \vec e_\theta\\ \vec e_z\\ \end{pmatrix}

Por lo que:

\begin{pmatrix} \vec i\\ \vec j\\ \vec k\\ \end{pmatrix} = \begin{pmatrix} \cos \theta & -sen \theta & 0\\ sen \theta & \cos \theta & 0\\ 0 & 0 & 1 \end{pmatrix} \begin{pmatrix} (1-\frac{1}{\rho^2})\cos(\theta)\\ -(1+\frac{1}{\rho^2})\sin(\theta)\\ 0\\ \end{pmatrix}

Resolviendo a coordenadas cartesianas:

[math] \vec u (\vec i,\vec j,\vec k) =\nabla \varphi=\left( (1 - \frac{1}{{\rho^2}}) \cdot \cos^2(\theta) + (1 + \frac{1}{{\rho^2}}) \cdot \sin^2(\theta)\right) \vec i + \left( (1 - \frac{1}{{\rho^2}}) \cdot \sin(\theta) \cdot \cos(\theta) - (1 + \frac{1}{{\rho^2}}) \cdot \sin(\theta) \cdot \cos(\theta)\right) \vec j [/math]

A continuación representamos el campo de velocidades de las partículas sobre las superficies equipotenciales del flujo del fluido.

Campo de velocidades de las partículas sobre las líneas equipotenciales del fluido

r=linspace(1,5,50);                                            %Define rho (r) y theta (a)
a=linspace(0,2*pi,50);

[R,A]=meshgrid(r,a);                                           %Crea la malla

X=R.*cos(A);                                                   %Parametriza la superficie
Y=R.*sin(A);

f=@(r,a)(r+(1./r)).*cos(a);  %Definimos la función potencial 
Z=f(R,A);                                                      %Aplica la función
contour(X,Y,Z,30);                                             %Dibuja las curvas de nivel
hold on                                                        %Define las componentes X e Y del gradiente
Cx=(1-(1./R.^2)).*cos(A).^2+(1+(1./R.^2)).*sin(A).^2;           
Cy=(1-(1./R.^2)).*sin(A).*cos(A)-(1+(1./R.^2)).*sin(A).*cos(A);
quiver(X,Y,Cx,Cy);                                             %Dibuja el campo de velocidades 
plot(1*cos(a),1*sin(a),'k','lineWidth',1);                     %Representa del obstáculo
axis([-4,4,-4,4]);
colorbar;                                                      %Añade la barra de color, titulo y nombre a los ejes
title ('Campo de velocidades');
xlabel ('EJE X');
ylabel ('EJE Y');
axis equal 
hold off

Gracias a la gráfica anterior se observa como los vectores de velocidad definidos por [math] \vec u [/math] son siempre perpendiculares a las líneas equipotenciales del fluido.

3 7.Velocidad y presión al rodear el obstáculo.

Ya teniendo el campo de presiones se puede apreciar que tiene relación con la velocidad, ya que cuando disminuye la presión aumenta el módulo de la velocidad, tratándose de un resultado lógico debido a que cuando hablamos de un fluido incompresible su valor de Trinomio de Bernoulli ha de ser constante. Lo podemos ver mediante la siguiente expresión: (Ec. Bernoulli).

B=z+P/γ+v^2/2g

B=valor del trinomio de Bernoulli

P= presión

z= altura

v=velocidad que lleva el fluido en determinado punto

g=valor de la gravedad

γ=valor del peso específico

Donde podemos ver que si la presión aumenta la velocidad tiene que disminuir y viceversa.

4 8.Paradoja de D'Alembert.

La magnitud p" " n representa la fuerza que el fluido ejerce de forma puntual sobre la superficie del obstáculo. Para estudiar si existe empuje neto en la dirección horizontal, basta analizar la suma de las proyecciones de todas esas fuerzas sobre el vector i. Si dicha suma resulta nula, concluiremos que no hay fuerza total en esa dirección.

Del apartado anterior conocemos ya la presión en la frontera del círculo unidad: [math]p=10-∥u∥^2=9-4〖sin⁡〗^2 θ-4sin⁡θ[/math]

Cálculo del vector normal

Sobre la circunferencia de radio 1 el vector normal exterior es

n=-e_ρ.

Para expresarlo en coordenadas cartesianas utilizamos la matriz de cambio de base de polares a cartesianas. Tomando su traspuesta se obtiene:

[math](■(cos⁡θ&-sin⁡θ&0@sin⁡θ&cos⁡θ&0@0&0&1)).[/math]

Aplicando esta matriz a (1,0,0)^T, que corresponde al versor radial e_ρ, se obtiene:

[math](█(cos⁡θ@sin⁡θ@0))=cos⁡θi+sin⁡θj[/math]

Al tomar el signo negativo para el normal exterior,

n=cos⁡θi-sin⁡θj,

de donde su proyección sobre i es:

n⋅i=-cos⁡θ.

Integración sobre la frontera

El borde del dominio se parametriza como (ρ,θ)=(1,θ), con θ∈[0,2π).

La contribución total de la presión en la dirección horizontal es: [math]∫_0^(2π) p(n⋅i)dθ=∫_0^(2π) p(-cos⁡θ)dθ.[/math]

Sustituyendo la expresión de p: [math]∫_0^(2π)(9-4〖sin⁡〗^2 θ-4sin⁡θ)(-cos⁡θ)dθ.[/math]

Integramos término a término: [math]∫_0^(2π)-9cos⁡θdθ+∫_0^2π 4〖sin⁡〗^2 θcos⁡θdθ+∫_0^(2π) 4sin⁡θcos⁡θdθ.[/math]

Cada una de estas integrales es periódica con una primitiva continua en todo el intervalo; evaluándolas entre 0y 2πse obtiene: [math][-9sin⁡θ]_0^(2π)=0,〖[(4〖sin⁡〗^3 θ)/3]〗_0^(2π)=0,[2〖sin⁡〗^2 θ]_0^(2π)=0.[/math]

Por tanto, [math]∫_0^(2π) p(n⋅i)dθ=0.[/math]

Conclusión

La componente horizontal de la fuerza total ejercida por el fluido sobre el obstáculo es nula. En consecuencia, el fluido no produce empuje neto en la dirección i.