<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="es">
		<id>https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=HugoZamora</id>
		<title>MateWiki - Contribuciones del usuario [es]</title>
		<link rel="self" type="application/atom+xml" href="https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=HugoZamora"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/HugoZamora"/>
		<updated>2026-04-26T03:16:28Z</updated>
		<subtitle>Contribuciones del usuario</subtitle>
		<generator>MediaWiki 1.26.2</generator>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=102881</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=102881"/>
				<updated>2025-12-06T20:47:21Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Paradoja de D´Alembert */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
Para representarlo se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; la región ocupada por el fluido será el exterior del círculo considerado. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4], mostrando que el fluido ocupa el espacio exterior del círculo.&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Se sabe que la velocidad de las partículas del fluido estudiado queda definida por el gradiente de la función potencial representada a continuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación se ha representado el campo de velocidades, donde se observa que este es ortogonal a la función potencial.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades')&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
También se estudiará cómo se comporta el fluido al rodear el obstáculo, para ello se seguirá utilizando la función de velocidades&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta.&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &lt;br /&gt;
&lt;br /&gt;
El rotacional se empleará para analizar como se comporta el fluido de forma puntual y la divergencia determinará la variación del volumen.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&lt;br /&gt;
Para calcular el rotacional se emplea la siguiente formula&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(\rho+\dfrac{1}{\rho}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
[(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}]&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El resultado es cero debido a que el fluido carece de rotación local; únicamente curva sus trayectorias para rodear el obstáculo. En ningún momento se forman remolinos donde el fluido gire en torno a un eje.&lt;br /&gt;
&lt;br /&gt;
===Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia se utiliza la siguiente formula&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El fluido se considera incompresible, es decir, la divergencia es nula, a diferencia de otros fluidos como los gases. Esto indica que el volumen se mantiene constante durante todo el movimiento, ni se expande ni se contrae.&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se va a calcular la líneas de corriente del campo &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; para ello primero se calcula el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ya que las líneas de corriente son ortogonales al campo &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, para calcularlo se toma &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se comprueba que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional al ser &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; de divergencia nula:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación se calcula &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello se resuelve el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho;   {\partial\psi}=v_\rho {\partial\rho} =\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho v_\theta = (\rho-\frac{1}{\rho})cos(\theta) + \frac{\partial f(\theta)}{\partial\theta};{\partial f(\theta)}= 0; f(\theta) = \int 0d\theta= C &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando a la constante C un valor de 0 nos queda&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada la función de velocidades del fluido &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S, descrito por la circunferencia unidad centrada en (0,0). Como la función está expresada en coordenadas cilíndricas, el análisis nos resultará sencillo, pues solo se necesita sustituir &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; por 1.&lt;br /&gt;
*&amp;lt;math&amp;gt;\vec{u}(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
La dirección de la velocidad resulta irrelevante para este análisis, por ello se estudiará únicamente el modulo de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, simplificando así los cálculos.&lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;. Además, por cómo es la función modulo de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, los puntos de remanso coincidirán con los mínimos.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Para determinar la presión se utiliza la ecuación de Bernoulli en términos de presiones. Se considera una densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;, como el fluido se esta estudiando en un plano xy no tiene altura por lo que la z=0.&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Siendo u la función del campo velocidades del fluido  &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Es necesario hallar el modulo de este  campo de velocidades al cuadrado por lo que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación se sustituye la densidad por dos, se utiliza una cte cualquiera puesto que no influye para el calculo de máximos y mínimos ya que al derivar esta es 0. No obstante, es importante elegir un valor donde la presión resultante sea positiva ya que esta debe ser mayor o igual a 0, por ello se tomará cte=4, despejando la presión llegamos a la ecuación:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta + 3&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presiondelfluidodosgrupo37.jpg|520px|thumb|right|Presión del fluido]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=-(1./(R.^4))+((2./(R.^2)).*cos(2.*A))+4;&lt;br /&gt;
&lt;br /&gt;
surf(X3,Y3,Z3);&lt;br /&gt;
shading interp;&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Presión del fluido');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Modulosdelcampodevelocidades.jpg|520px|thumb|right|Módulos del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=(1+(1./(R.^4))-((2./(R.^2)).*cos(2.*A))).^(1./2);&lt;br /&gt;
&lt;br /&gt;
surf(X3,Y3,Z3);&lt;br /&gt;
shading interp;&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Módulos del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se estudia cuando la presión alcanza los valores máximos y mínimos. Dado que se quiere comparar la velocidad del fluido con la presión tomaremos los puntos de la frontera ya que ahí es donde se alcanzan las velocidades máximas y mínimas. Por ello se tomará &amp;lt;math&amp;gt;\rho=1&amp;lt;/math&amp;gt;  sustituyendo este valor en la expresión de la presión, se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=2+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al igual que en la velocidad la función solo depende de &amp;lt;math&amp;gt;\theta&amp;lt;/math&amp;gt;. Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=\pi/2,3\pi/2&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos:&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos:&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Al comparar las presiones y velocidades se puede observar que la velocidad es máxima cuando la presión es mínima y viceversa.&lt;br /&gt;
&lt;br /&gt;
==Trayectoria de la partícula==&lt;br /&gt;
&lt;br /&gt;
Como se muestra en el apartado anterior, la presión es mínima cuando la velocidad es máxima, es decir, la velocidad incrementa cuando se produce un estrechamiento. Esto se debe a que el caudal será constante en todo momento.&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;Q=Av&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Siendo Q el caudal, A el área y v la velocidad.&lt;br /&gt;
Por lo que, cuando el área es mínima, la velocidad debe de ser máxima para &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;, como se verifica en el apartado 4.1.&lt;br /&gt;
Además, según el principio de Bernoulli, el trinomio es constante en todo momento. Sabiendo que la altura es cero, nos queda la ecuación:  &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte.}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &lt;br /&gt;
Asimismo, la presión aumenta al disminuir la velocidad y viceversa, conservando el trinomio, esto se ha comprobado en los apartados anteriores. La presión es máxima cuando el fluido choca con el obstáculo debido al impacto frontal, que hace que la velocidad sea nula.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|420px|left|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
[[Archivo:Presiondelfluidodosgrupo37.jpg|420px|center|Presión del fluido]]&lt;br /&gt;
[[Archivo:Modulosdelcampodevelocidades.jpg|420px|right|Módulos del campo de velocidades]]&lt;br /&gt;
&lt;br /&gt;
==Paradoja de D´Alembert==&lt;br /&gt;
El teorema de Kutta-Joukowski establece que la fuerza ejercida por un fluido sobre un obstáculo es proporcional a la circulación del fluido alrededor del mismo. En este caso se sabe que la circulación del fluido es nula por lo que la fuerza ejercida sobre el obstáculo también será nula. Esto contrasta con la intuición a este fenómeno se conoce como la paradoja de D’Alembert. &lt;br /&gt;
&lt;br /&gt;
Para demostrar este fenómeno debemos comprobar que la suma de las fuerzas proyectadas en &amp;lt;math&amp;gt;\vec i&amp;lt;/math&amp;gt; de todos los puntos de la frontera sean nulas, para realizar el calculo de las fuerzas sobre el obstáculo utilizaremos la definición de presión la cual dice que presión es igual a Fuerza divido del área en la que esta aplicada esta fuerza, &lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\int_{0}^{2\pi}F·\vec{i}d\theta=\int_{0}^{2\pi}p·\vec{n}·\vec{i}d\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al estar trabajando en coordenadas cilíndricas debemos utilizar la transpuesta de la matriz de cambio de base para cambiar &amp;lt;math&amp;gt;\vec i&amp;lt;/math&amp;gt; lo que nos da:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \begin{pmatrix} cos(\theta) &amp;amp;  sin(\theta) &amp;amp; 0 \\ -sin(\theta) &amp;amp; cos(\theta) &amp;amp; 0 \\ 0 &amp;amp; 0 &amp;amp; 1 \end{pmatrix} \begin{pmatrix} 1 \\ 0 \\ 0  \end{pmatrix} = cos(\theta)\vec {e}_\rho-sin(\theta)\vec {e}_\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Otro ejemplo==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi \rho}]\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campodevelocidadesnueve2grupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnueve2grupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi.*R);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Con la fórmula del campo de velocidades,&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi \rho}]\vec{e}_\theta,&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
calcularemos el rotacional y la divergencia.&lt;br /&gt;
&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-[\left(\rho+\frac{1}{\rho}\right)\sin\theta -\frac{1}{4 \pi}] &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
[(-1 + 1/\rho^{2})\sin\theta\ \vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}]&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente del campo de velocidades forman círculos, indicando que hay circulación alrededor del eje. Sin embargo, las partículas del fluido no giran sobre sí mismas, siguen trayectorias curvas sin rotación interna. Esto se refleja en que el rotacional del campo es cero. &lt;br /&gt;
&lt;br /&gt;
En conclusión, el flujo presenta circulación alrededor de un punto, pero no genera remolinos locales; es un flujo irrotacional.&lt;br /&gt;
&lt;br /&gt;
===Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( [\left(1+\frac{1}{\rho^{2}}\right)\sin\theta -\frac{1}{4 \pi \rho}] \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( [\left(1+\frac{1}{\rho^{2}}\right)\sin\theta -\frac{1}{4 \pi \rho}] \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula, indicando que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Líneas de corriente===&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi \rho}]  &amp;amp; {0} \end{vmatrix}= [(1+\frac{1}{\rho^2})sin(\theta)-\frac{1}{4 \pi \rho}]\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int [(1+\frac{1}{\rho^2})sin(\theta)-\frac{1}{4 \pi \rho}]\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+ \frac{1}{4 \pi}\ln(\rho)+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta)\,d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)+ \frac{1}{4 \pi}\ln(\rho)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=(sin(A).*(R-(1./R)))+((1./(4.*pi)).*log(R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=102880</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=102880"/>
				<updated>2025-12-06T20:46:51Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Paradoja de D´Alembert */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
Para representarlo se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; la región ocupada por el fluido será el exterior del círculo considerado. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4], mostrando que el fluido ocupa el espacio exterior del círculo.&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Se sabe que la velocidad de las partículas del fluido estudiado queda definida por el gradiente de la función potencial representada a continuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación se ha representado el campo de velocidades, donde se observa que este es ortogonal a la función potencial.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades')&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
También se estudiará cómo se comporta el fluido al rodear el obstáculo, para ello se seguirá utilizando la función de velocidades&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta.&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &lt;br /&gt;
&lt;br /&gt;
El rotacional se empleará para analizar como se comporta el fluido de forma puntual y la divergencia determinará la variación del volumen.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&lt;br /&gt;
Para calcular el rotacional se emplea la siguiente formula&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(\rho+\dfrac{1}{\rho}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
[(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}]&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El resultado es cero debido a que el fluido carece de rotación local; únicamente curva sus trayectorias para rodear el obstáculo. En ningún momento se forman remolinos donde el fluido gire en torno a un eje.&lt;br /&gt;
&lt;br /&gt;
===Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Para calcular la divergencia se utiliza la siguiente formula&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El fluido se considera incompresible, es decir, la divergencia es nula, a diferencia de otros fluidos como los gases. Esto indica que el volumen se mantiene constante durante todo el movimiento, ni se expande ni se contrae.&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se va a calcular la líneas de corriente del campo &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; para ello primero se calcula el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ya que las líneas de corriente son ortogonales al campo &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, para calcularlo se toma &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se comprueba que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional al ser &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; de divergencia nula:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación se calcula &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello se resuelve el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho;   {\partial\psi}=v_\rho {\partial\rho} =\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho v_\theta = (\rho-\frac{1}{\rho})cos(\theta) + \frac{\partial f(\theta)}{\partial\theta};{\partial f(\theta)}= 0; f(\theta) = \int 0d\theta= C &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando a la constante C un valor de 0 nos queda&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada la función de velocidades del fluido &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S, descrito por la circunferencia unidad centrada en (0,0). Como la función está expresada en coordenadas cilíndricas, el análisis nos resultará sencillo, pues solo se necesita sustituir &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; por 1.&lt;br /&gt;
*&amp;lt;math&amp;gt;\vec{u}(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
La dirección de la velocidad resulta irrelevante para este análisis, por ello se estudiará únicamente el modulo de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, simplificando así los cálculos.&lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;. Además, por cómo es la función modulo de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, los puntos de remanso coincidirán con los mínimos.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Para determinar la presión se utiliza la ecuación de Bernoulli en términos de presiones. Se considera una densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;, como el fluido se esta estudiando en un plano xy no tiene altura por lo que la z=0.&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Siendo u la función del campo velocidades del fluido  &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Es necesario hallar el modulo de este  campo de velocidades al cuadrado por lo que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación se sustituye la densidad por dos, se utiliza una cte cualquiera puesto que no influye para el calculo de máximos y mínimos ya que al derivar esta es 0. No obstante, es importante elegir un valor donde la presión resultante sea positiva ya que esta debe ser mayor o igual a 0, por ello se tomará cte=4, despejando la presión llegamos a la ecuación:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta + 3&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presiondelfluidodosgrupo37.jpg|520px|thumb|right|Presión del fluido]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=-(1./(R.^4))+((2./(R.^2)).*cos(2.*A))+4;&lt;br /&gt;
&lt;br /&gt;
surf(X3,Y3,Z3);&lt;br /&gt;
shading interp;&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Presión del fluido');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Modulosdelcampodevelocidades.jpg|520px|thumb|right|Módulos del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=(1+(1./(R.^4))-((2./(R.^2)).*cos(2.*A))).^(1./2);&lt;br /&gt;
&lt;br /&gt;
surf(X3,Y3,Z3);&lt;br /&gt;
shading interp;&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Módulos del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se estudia cuando la presión alcanza los valores máximos y mínimos. Dado que se quiere comparar la velocidad del fluido con la presión tomaremos los puntos de la frontera ya que ahí es donde se alcanzan las velocidades máximas y mínimas. Por ello se tomará &amp;lt;math&amp;gt;\rho=1&amp;lt;/math&amp;gt;  sustituyendo este valor en la expresión de la presión, se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=2+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al igual que en la velocidad la función solo depende de &amp;lt;math&amp;gt;\theta&amp;lt;/math&amp;gt;. Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=\pi/2,3\pi/2&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos:&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos:&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Al comparar las presiones y velocidades se puede observar que la velocidad es máxima cuando la presión es mínima y viceversa.&lt;br /&gt;
&lt;br /&gt;
==Trayectoria de la partícula==&lt;br /&gt;
&lt;br /&gt;
Como se muestra en el apartado anterior, la presión es mínima cuando la velocidad es máxima, es decir, la velocidad incrementa cuando se produce un estrechamiento. Esto se debe a que el caudal será constante en todo momento.&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;Q=Av&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Siendo Q el caudal, A el área y v la velocidad.&lt;br /&gt;
Por lo que, cuando el área es mínima, la velocidad debe de ser máxima para &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;, como se verifica en el apartado 4.1.&lt;br /&gt;
Además, según el principio de Bernoulli, el trinomio es constante en todo momento. Sabiendo que la altura es cero, nos queda la ecuación:  &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte.}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &lt;br /&gt;
Asimismo, la presión aumenta al disminuir la velocidad y viceversa, conservando el trinomio, esto se ha comprobado en los apartados anteriores. La presión es máxima cuando el fluido choca con el obstáculo debido al impacto frontal, que hace que la velocidad sea nula.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|420px|left|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
[[Archivo:Presiondelfluidodosgrupo37.jpg|420px|center|Presión del fluido]]&lt;br /&gt;
[[Archivo:Modulosdelcampodevelocidades.jpg|420px|right|Módulos del campo de velocidades]]&lt;br /&gt;
&lt;br /&gt;
==Paradoja de D´Alembert==&lt;br /&gt;
El teorema de Kutta-Joukowski establece que la fuerza ejercida por un fluido sobre un obstáculo es proporcional a la circulación del fluido alrededor del mismo. En este caso se sabe que la circulación del fluido es nula por lo que la fuerza ejercida sobre el obstáculo también será nula. Esto contrasta con la intuición a este fenómeno se conoce como la paradoja de D’Alembert. &lt;br /&gt;
&lt;br /&gt;
Para demostrar este fenómeno debemos comprobar que la suma de las fuerzas proyectadas en &amp;lt;math&amp;gt;\vec i&amp;lt;/math&amp;gt; de todos los puntos de la frontera sean nulas, para realizar el calculo de las fuerzas sobre el obstáculo utilizaremos la definición de presión la cual dice que presión es igual a Fuerza divido del área en la que esta aplicada esta fuerza, &lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\int_{0}^{2\pi}F·\vec{i}d\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;=&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\int_{0}^{2\pi}p·\vec{n}·\vec{i}d\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Al estar trabajando en coordenadas cilíndricas debemos utilizar la transpuesta de la matriz de cambio de base para cambiar &amp;lt;math&amp;gt;\vec i&amp;lt;/math&amp;gt; lo que nos da:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \begin{pmatrix} cos(\theta) &amp;amp;  sin(\theta) &amp;amp; 0 \\ -sin(\theta) &amp;amp; cos(\theta) &amp;amp; 0 \\ 0 &amp;amp; 0 &amp;amp; 1 \end{pmatrix} \begin{pmatrix} 1 \\ 0 \\ 0  \end{pmatrix} = cos(\theta)\vec {e}_\rho-sin(\theta)\vec {e}_\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Otro ejemplo==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi \rho}]\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Campodevelocidadesnueve2grupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnueve2grupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi.*R);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Con la fórmula del campo de velocidades,&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi \rho}]\vec{e}_\theta,&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
calcularemos el rotacional y la divergencia.&lt;br /&gt;
&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-[\left(\rho+\frac{1}{\rho}\right)\sin\theta -\frac{1}{4 \pi}] &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
[(-1 + 1/\rho^{2})\sin\theta\ \vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}]&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente del campo de velocidades forman círculos, indicando que hay circulación alrededor del eje. Sin embargo, las partículas del fluido no giran sobre sí mismas, siguen trayectorias curvas sin rotación interna. Esto se refleja en que el rotacional del campo es cero. &lt;br /&gt;
&lt;br /&gt;
En conclusión, el flujo presenta circulación alrededor de un punto, pero no genera remolinos locales; es un flujo irrotacional.&lt;br /&gt;
&lt;br /&gt;
===Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( [\left(1+\frac{1}{\rho^{2}}\right)\sin\theta -\frac{1}{4 \pi \rho}] \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( [\left(1+\frac{1}{\rho^{2}}\right)\sin\theta -\frac{1}{4 \pi \rho}] \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia es nula, indicando que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Líneas de corriente===&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi \rho}]  &amp;amp; {0} \end{vmatrix}= [(1+\frac{1}{\rho^2})sin(\theta)-\frac{1}{4 \pi \rho}]\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int [(1+\frac{1}{\rho^2})sin(\theta)-\frac{1}{4 \pi \rho}]\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+ \frac{1}{4 \pi}\ln(\rho)+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta)\,d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)+ \frac{1}{4 \pi}\ln(\rho)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=(sin(A).*(R-(1./R)))+((1./(4.*pi)).*log(R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92883</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92883"/>
				<updated>2025-12-01T10:12:28Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
o&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
===Comparación con velocidad===&lt;br /&gt;
Si nos remontamos al apartado donde calculamos las velocidades máximas y mínimas podemos observar que cuando la velocidad es máxima la presión es mínimas y a la inversa, esto se debe a la ecuación de Bernuilli que dicta que presión velocidad y altura guardan una relación llamada trinomio de Bernuilli el cual estudiaremos en profundida en el siguiente apartado&lt;br /&gt;
&lt;br /&gt;
==Trayectoria de la particula==&lt;br /&gt;
&lt;br /&gt;
==Paradoja de D´Alembert==&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92862</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92862"/>
				<updated>2025-12-01T10:07:08Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Apartado 8 */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
o&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
==Trayectoria de la particula==&lt;br /&gt;
&lt;br /&gt;
==Paradoja de D´Alembert==&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92858</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92858"/>
				<updated>2025-12-01T10:06:44Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Apartadosd 7 */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
o&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
==Trayectoria de la particula==&lt;br /&gt;
&lt;br /&gt;
==Apartado 8==&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92853</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92853"/>
				<updated>2025-12-01T10:05:21Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
o&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
==Apartadosd 7==&lt;br /&gt;
==Apartado 8==&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92607</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92607"/>
				<updated>2025-11-30T22:06:23Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Máximos y mínimos absolutos */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
o&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92606</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92606"/>
				<updated>2025-11-30T22:06:11Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Máximos y mínimos absolutos */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92595</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92595"/>
				<updated>2025-11-30T21:50:57Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Máximos y mínimos en la frontera S */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92594</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92594"/>
				<updated>2025-11-30T21:50:45Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
Máximos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
Mínimos&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Observamos que los máximos en la frontera de S coindicen con los máximos absolutos calculados en el apartado anterior&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92592</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92592"/>
				<updated>2025-11-30T21:47:45Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Máximos y mínimos en la frontera S */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92591</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92591"/>
				<updated>2025-11-30T21:46:38Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Máximos y mínimos en la frontera S */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
Por tanto veremos que alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=0,\pi&amp;lt;/math&amp;gt; y alcanza los máximos cuando &amp;lt;math&amp;gt;\theta=2\pi,2\pi/3&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92588</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92588"/>
				<updated>2025-11-30T21:43:20Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
Por tanto sustituiremos por 1 el radio en la funcion de la presión &amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt; y nos quedara &amp;lt;math&amp;gt;p(\theta)=-1+2cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92587</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92587"/>
				<updated>2025-11-30T21:41:12Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92586</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92586"/>
				<updated>2025-11-30T21:40:45Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Máximos y mínimos en la frontera S */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92585</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92585"/>
				<updated>2025-11-30T21:40:28Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Máximos y mínimos en la frontera S */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92584</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92584"/>
				<updated>2025-11-30T21:39:07Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
Dado que estamos trabajando en coordenadas cilíndricas y que la frontera S es realmente fácil de describir en estas coordenadas puesto que el radio no varia y solo varia el ángulo utilizaremos el teorema de Weistrass el cual establece que una función continua en un intervalo cerrado y acotado [a, b] siempre alcanza al menos un máximo absoluto y un mínimo absoluto dentro de ese intervalo. Esto significa que la función tiene un valor más alto y uno más bajo dentro de ese intervalo específico, garantizado por la continuidad en el conjunto cerrado y acotado, siendo nuestro intervalo &amp;lt;math&amp;gt;\rho \in [0, \pi], \quad \theta \in [1, \infty)&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92583</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92583"/>
				<updated>2025-11-30T21:12:47Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
===Máximos y mínimos absolutos===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
===Máximos y mínimos en la frontera S===&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92582</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92582"/>
				<updated>2025-11-30T21:10:26Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) ,(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0),(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92581</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92581"/>
				<updated>2025-11-30T21:09:42Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) y (\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0) y&lt;br /&gt;
 (\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92580</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92580"/>
				<updated>2025-11-30T21:09:13Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0)y(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0)y&lt;br /&gt;
(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92579</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92579"/>
				<updated>2025-11-30T21:07:58Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Puesto que para &amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&lt;br /&gt;
(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; el determinante queda positivo y la la primera componente de la primera columna y primera fila es negativo podemos concluir que &amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&lt;br /&gt;
(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; son máximos absolutos&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92578</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92578"/>
				<updated>2025-11-30T21:05:08Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora debemos analizar su determinante el cual es y sustituir por los valores encontrado para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92577</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92577"/>
				<updated>2025-11-30T21:04:01Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(-p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Ahora devemos analizar su determinante el cual es &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\det(H(-p)) = \frac{-32 \rho^2 \cos^2(2\theta) - 64 \rho^2 + 160 \cos(2\theta)}{\rho^8}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92574</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92574"/>
				<updated>2025-11-30T20:51:58Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haciendo las derivadas y sustituyendo quedaria&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(-p)(\rho,\theta)=&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\dfrac{12 \cos(2\theta)}{\rho^4} - \dfrac{20}{\rho^6} &amp;amp; \dfrac{8 \sin(2\theta)}{\rho^3} \\&lt;br /&gt;
\dfrac{8 \sin(2\theta)}{\rho^3} &amp;amp; -\dfrac{8 \cos(2\theta)}{\rho^2}&lt;br /&gt;
\end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92573</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92573"/>
				<updated>2025-11-30T20:47:06Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
Descartaremos las dos ultimas soluciones puesto que no trabajaremos en el infinito&lt;br /&gt;
Ahora para identificar si son máximos, mínimos o puntos de silla, utilizaremos la matriz hessiana&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
H(f) =&lt;br /&gt;
\begin{bmatrix}&lt;br /&gt;
\frac{\partial^2 f}{\partial x_1^2} &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_1 \partial x_n} \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_2 \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_2^2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_2 \partial x_n} \\&lt;br /&gt;
\vdots &amp;amp; \vdots &amp;amp; \ddots &amp;amp; \vdots \\&lt;br /&gt;
\frac{\partial^2 f}{\partial x_n \partial x_1} &amp;amp; \frac{\partial^2 f}{\partial x_n \partial x_2} &amp;amp; \cdots &amp;amp; \frac{\partial^2 f}{\partial x_n^2}&lt;br /&gt;
\end{bmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92571</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92571"/>
				<updated>2025-11-30T20:43:18Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{4}{\rho^5} - \frac{4 \cos(2\theta)}{\rho^3}= 0  \\&lt;br /&gt;
\frac{4 \sin(2\theta)}{\rho^2}=0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolviendo esto nos quedan cuatro soluciones para &amp;lt;math&amp;gt;(\rho,\theta)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,0)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(1,\pi)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,\pi/2)&amp;lt;/math&amp;gt; &lt;br /&gt;
*&amp;lt;math&amp;gt;(\rho,\theta)=(\infty,3\pi/2)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92562</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92562"/>
				<updated>2025-11-30T20:33:55Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = \frac{4}{\rho^3} - \frac{4 \cos(2\theta)}{\rho^3} \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = \frac{4 \sin(2\theta)}{\rho^2}&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92559</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92559"/>
				<updated>2025-11-30T20:32:37Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar los máximos y los mínimos de p derivaremos respecto a sus variables e igularemos a 0 para resolver el sistema, por último utilizaremos el teorema de weistrass para analizar los máximos y los mínimosen la frontera de S&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = 0 \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\frac{\partial p}{\partial \rho} = \frac{4}{\rho^3} - \frac{4 \cos(2\theta)}{\rho^3} \\&lt;br /&gt;
\frac{\partial p}{\partial \theta} = \frac{4 \sin(2\theta)}{\rho^2}&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92528</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92528"/>
				<updated>2025-11-30T19:54:22Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92527</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92527"/>
				<updated>2025-11-30T19:53:32Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92526</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92526"/>
				<updated>2025-11-30T19:53:22Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92525</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92525"/>
				<updated>2025-11-30T19:53:06Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92524</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92524"/>
				<updated>2025-11-30T19:52:15Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92523</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92523"/>
				<updated>2025-11-30T19:51:51Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92521</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92521"/>
				<updated>2025-11-30T19:51:39Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituyendo la densidad por dos, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(\rho,\theta)=-\dfrac{1}{\rho^{4}}+\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&amp;lt;center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92516</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92516"/>
				<updated>2025-11-30T19:49:48Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
Sustituyendo la densidad por dos tomando, utilizando una cte cualquira puesto que para el calculo de máximos y mínimos no nos es importante y despejando p llegamos a la ecuación&lt;br /&gt;
&amp;lt;math&amp;gt;p(\rho,\theta)=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos2\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92507</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92507"/>
				<updated>2025-11-30T19:43:24Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=p(\rho,\theta)=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92443</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92443"/>
				<updated>2025-11-30T19:02:44Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Presión del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Partimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
Y siendo u nuestra función del campo velocidades &amp;lt;math&amp;gt;\varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces hallamos que &lt;br /&gt;
&amp;lt;math&amp;gt;|\vec{u}|^2=p(\rho,\theta)=1+\dfrac{1}{\rho^{4}}-\dfrac{2}{\rho^{2}}\cos\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92433</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92433"/>
				<updated>2025-11-30T18:55:27Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Puntos de Remanso (Velocidad mínima = 0): */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Parimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92432</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92432"/>
				<updated>2025-11-30T18:55:02Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Puntos de Velocidad Máxima : */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 \rightarrow (x, y) = (1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi \rightarrow (x, y) = (-1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Parimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92430</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=92430"/>
				<updated>2025-11-30T18:52:28Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
Se considera que el obstáculo mencionado coincide con el círculo unidad, con centro en el origen de coordenadas; luego, la región ocupada por el fluido será el exterior del círculo considerado. &lt;br /&gt;
&lt;br /&gt;
El primer objetivo del grupo es la representación de los puntos interiores de la región ocupada por el fluido, para ello, con la ayuda del programa MATLAB, se dibujará un mallado que cumpla la representación. &lt;br /&gt;
&lt;br /&gt;
Este mallado se ajusta al anillo de radio interior 1 y radio exterior 5 y, al igual que el obstáculo, centro en el origen de coordenadas.&lt;br /&gt;
&lt;br /&gt;
Como ultima observación, para ilustrar que el fluido ocupa el exterior del obstáculo, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
La representación del mallado facilita el análisis e intuición del comportamiento del fluido. Esto se debe gracias a la división del espacio que ocupa en pequeñas celdas que se comportan como unidades de cálculo más manejables, lo que permite evaluar de manera precisa velocidades, temperaturas y otros fenómenos. &lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 \rightarrow (x, y) = (0, 1)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 \rightarrow (x, y) = (0, -1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 \rightarrow (x, y) = (1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi \rightarrow (x, y) = (-1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
==Presión del fluido==&lt;br /&gt;
Parimos de la ecuación de Bernoulli para un fluido con densidad &amp;lt;math&amp;gt;\rho = 2&amp;lt;/math&amp;gt;:&lt;br /&gt;
:&amp;lt;math&amp;gt;\frac{1}{2}\rho|\vec{u}|^2 + p = \text{cte}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90605</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90605"/>
				<updated>2025-11-28T12:31:58Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Puntos de Velocidad Máxima (Velocidad = 2): */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima :===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 \rightarrow (x, y) = (0, 1)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 \rightarrow (x, y) = (0, -1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 \rightarrow (x, y) = (1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi \rightarrow (x, y) = (-1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90603</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90603"/>
				<updated>2025-11-28T12:31:05Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Velocidades en la frontera de S */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Velocidad Máxima (Velocidad = 2):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 \rightarrow (x, y) = (0, 1)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 \rightarrow (x, y) = (0, -1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
Adeemas por como es la funcion modulo de u los puntos de remanso coincidiran con los minimos&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 \rightarrow (x, y) = (1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi \rightarrow (x, y) = (-1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90599</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90599"/>
				<updated>2025-11-28T12:28:52Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Velocidades en la frontera de S */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de &lt;br /&gt;
*&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
Como nuestra función es el modulo del seno es fácil analizar los valores&lt;br /&gt;
===Puntos de Remanso (Velocidad mínima = 0):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;\sin\theta = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 0 \rightarrow (x, y) = (1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi \rightarrow (x, y) = (-1, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En estos puntos, el fluido choca contra el obstáculo y se detiene momentáneamente.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Puntos de Velocidad Máxima (Velocidad = 2):===&lt;br /&gt;
&lt;br /&gt;
Se dan cuando &amp;lt;math&amp;gt;|\sin\theta| = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = \pi/2 \rightarrow (x, y) = (0, 1)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;\theta = 3\pi/2 \rightarrow (x, y) = (0, -1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90597</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=90597"/>
				<updated>2025-11-28T12:24:34Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
&lt;br /&gt;
El flujo es la cantidad de fluido que atraviesa una superficie por unidad de tiempo. Es decir, el flujo de un fluido nos marca el movimiento de este desde un lugar a otro.&lt;br /&gt;
&lt;br /&gt;
Dadas las descripciones anteriores, no es difícil caer en la cuenta de que el flujo de un fluido será capaz de describirnos como este se desplaza a través de una sección de interés, siendo capaces de analizar la velocidad y dirección de su movimiento del fluido en cada punto; es decir, el campo de velocidades del mismo. &lt;br /&gt;
&lt;br /&gt;
Si el interés se dirige a la mecánica de fluidos, podremos sacar jugosa información sobre los efectos internos al fluido estudiado, como la divergencia y rotacional. La divergencia nos marca el cambio del volumen del fluido al enfrentarse al movimiento, marcado por el campo vectorial de velocidades, mientras que el rotacional muestra la tendencia del fluido, de su campo vectorial, a rotar alrededor de un punto.&lt;br /&gt;
&lt;br /&gt;
Aplicado al problema planteado, al tratarse de un fluido incompresible, el volumen siempre se conserva y, por consiguiente, la divergencia del mismo siempre será cero.&lt;br /&gt;
&lt;br /&gt;
Otra información destacable que podemos sacar del campo de velocidades del fluido será la interacción con las paredes u obstáculos de la sección de interés. Esto tendrá una cierta trascendencia para el desarrollo de nuestro trabajo, dado que se plantea una situación donde el fluido estudiado interacciona con un obstáculo de forma circular. &lt;br /&gt;
&lt;br /&gt;
Frente a esta situación, el desarrollo del trabajo se hará respecto a coordenadas cilíndricas. &lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}= \rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedelcampodevelocidadesgrupo37dos.jpg|520px|thumb|right|Líneas de corriente del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,20);&lt;br /&gt;
a=linspace(0,2*pi,20);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X3=R.*cos(A);&lt;br /&gt;
Y3=R.*sin(A);&lt;br /&gt;
Z3=sin(A).*(R-(1./R));&lt;br /&gt;
&lt;br /&gt;
contour(X3,Y3,Z3,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X3,Y3,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Líneas de corriente del campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
==Velocidades en la frontera de S==&lt;br /&gt;
Dada nuestra función de velocidades del fluido u ya calculada anteriormente, calcularemos la velocidad máxima, mínima y nula en la frontera del obstáculo circular S el cual viene descrito por la circunferencia unidad centrada en (0,0)&lt;br /&gt;
Puesto que nuestra función esta en coordenadas cilíndricas nos será mas fácil analizar la frontera S puesto que solo tendremos que sustituir rho por 1 &lt;br /&gt;
*De esta manera &amp;lt;math&amp;gt;u(\theta) = -2\sin\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
*Al estar analizando los puntos donde la velocidad es máxima, mínima y los puntos de remanso estudiaremos el modulo de u&amp;lt;math&amp;gt;|\vec{u}| = 2|\sin\theta|&amp;lt;/math&amp;gt;&lt;br /&gt;
==Apartado nueve==&lt;br /&gt;
Sea la función potencial&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta) +\frac{\theta}{4 \pi} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ.&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
[\left(1+\frac{1}{\rho^2}\right)\sin\theta -\frac{1}{4 \pi}],\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialnuevegrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Campo de velocidades y función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesnuevegrupo37.jpg|520px|thumb|right|Detalle del campo de velocidades]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=((R+1./R).*cos(A))+(A./4.*pi);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2)+(1./4.*pi);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88113</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88113"/>
				<updated>2025-11-26T12:25:36Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Líneas de corriente */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
''NO BORRAR''&lt;br /&gt;
&lt;br /&gt;
El flujo es una cantidad vectorial, en este caso, de un fluido. Su estudio permite analizar cómo cambia la velocidad y la distribución del movimiento del fluido al encontrarse con el obstáculo circular en su trayectoria.&lt;br /&gt;
&lt;br /&gt;
Por otra parte, es importante destacar que el fluido es incompresible, es decir, la densidad será constante y el volumen no cambia con el movimiento.&lt;br /&gt;
&lt;br /&gt;
En el desarrollo del trabajo se usarán coordenadas cilíndricas (polares).&lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\rho\,  \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl(\left(\rho-\frac{1}{\rho}\right)\cos\theta \;\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente==&lt;br /&gt;
&lt;br /&gt;
Primero calcularemos el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt;, que en cada punto es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;, (&amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;\vec{k}\times\vec{u}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec {e}_{z}&amp;lt;/math&amp;gt;).&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v=\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ {0}  &amp;amp; {0}  &amp;amp; {1}  \\ (1-\frac{1}{\rho^2})cos(\theta)  &amp;amp; -(1+\frac{1}{\rho^2})sin(\theta)  &amp;amp; {0} \end{vmatrix}= (1+\frac{1}{\rho^2})sin(\theta)\vec {e}_{\rho} + [(1-\frac{1}{\rho^2})cos(\theta)]\vec {e}_{\theta} =\vec v&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobamos que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es irrotacional:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\times\vec v= \frac{1}{\rho}\begin{vmatrix} \vec {e}_{\rho}&amp;amp;\rho\vec {e}_{\theta}&amp;amp;\vec {e}_{z} \\ \frac{\partial}{\partial{\rho}}  &amp;amp; \frac{\partial}{\partial{\theta}}  &amp;amp; \frac{\partial}{\partial{z}}  \\ v_\rho  &amp;amp; \rho v_\theta  &amp;amp; {0} \end{vmatrix}=\frac{1}{\rho}[[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}-[(1+\frac{1}{\rho^2})cos(\theta)]\vec {e}_{z}]=\vec {0}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A continuación calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, para ello resolveremos el sistema de ecuaciones &amp;lt;math&amp;gt;\nabla\cdot\psi=\vec v&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\rho}=v_\rho=\int (1+\frac{1}{\rho^2})sin(\theta)\,d\rho=sin(\theta) (\rho-\frac{1}{\rho})+f(\theta)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;         &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{\partial\psi}{\partial\theta}=\rho v_\theta=\int (\rho-\frac{1}{\rho})cos(\theta),d\theta=sin(\theta) (\rho-\frac{1}{\rho})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\psi = \sin(\theta)\left(\rho - \frac{1}{\rho}\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88052</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88052"/>
				<updated>2025-11-26T11:49:37Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Divergencia y rotacional */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
''NO BORRAR''&lt;br /&gt;
El flujo es una cantidad vectorial, en este caso, de un fluido. Su estudio permite analizar cómo cambia la velocidad y la distribución del movimiento del fluido al encontrarse con el obstáculo circular en su trayectoria.&lt;br /&gt;
&lt;br /&gt;
Por otra parte, es importante destacar que el fluido es incompresible, es decir, la densidad será constante y el volumen no cambia con el movimiento.&lt;br /&gt;
&lt;br /&gt;
En el desarrollo del trabajo se usarán coordenadas cilíndricas (polares).&lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===. Comprobación de la divergencia nula===&lt;br /&gt;
&lt;br /&gt;
Conociendo la fórmula de la divergencia calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\cdot\vec u=\frac{1}{\rho}[\frac{\partial}{\partial{\rho}}(\rho(u_\rho))+\frac{\partial}{\partial{\theta}}(u_\theta)+\frac{\partial}{\partial{z}}(\rho(u_z))]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\cdot\vec{u}&lt;br /&gt;
=&lt;br /&gt;
\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\frac{\partial}{\partial\rho}&lt;br /&gt;
\Bigl( \left(1-\frac{1}{\rho^{2}}\right)\cos\theta \; \rho\,\vec{e}_{\rho} \Bigr)&lt;br /&gt;
\;-\;&lt;br /&gt;
\frac{\partial}{\partial\theta}&lt;br /&gt;
\Bigl( \left(1+\frac{1}{\rho^{2}}\right)\sin\theta \; \vec{e}_{\theta} \Bigr)&lt;br /&gt;
\right]=\frac{1}{\rho}&lt;br /&gt;
\left[&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^{2}}\right)\cos\theta&lt;br /&gt;
\right]&lt;br /&gt;
=0&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88046</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88046"/>
				<updated>2025-11-26T11:47:59Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Rotacional nulo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
''NO BORRAR''&lt;br /&gt;
El flujo es una cantidad vectorial que define la cantidad y dirección, en este caso, de un fluido. Su estudio permite analizar cómo cambia la velocidad y la distribución del movimiento del fluido al encontrarse con el obstáculo circular en su trayectoria.&lt;br /&gt;
&lt;br /&gt;
Por otra parte, es importante destacar que el fluido es incompresible, es decir, la densidad será constante y el volumen no cambia con el movimiento.&lt;br /&gt;
&lt;br /&gt;
En el desarrollo del trabajo se usarán coordenadas cilíndricas (polares).&lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
===Rotacional nulo===&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;-\;&lt;br /&gt;
(-1 + 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88020</id>
		<title>Flujo alrededor de un obstáculo circular (Grupo 37)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_alrededor_de_un_obst%C3%A1culo_circular_(Grupo_37)&amp;diff=88020"/>
				<updated>2025-11-26T11:41:13Z</updated>
		
		<summary type="html">&lt;p&gt;HugoZamora: /* Divergencia y rotacional */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo alrededor de un obstáculo circular. Grupo 37 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | &lt;br /&gt;
*Paula Gutiérrez Pascual&lt;br /&gt;
*Rafael Martín Candilejo&lt;br /&gt;
*Jaime Mateos Bermejo&lt;br /&gt;
*Hugo Zamora Ramos}}&lt;br /&gt;
''NO BORRAR''&lt;br /&gt;
El flujo es una cantidad vectorial que define la cantidad y dirección, en este caso, de un fluido. Su estudio permite analizar cómo cambia la velocidad y la distribución del movimiento del fluido al encontrarse con el obstáculo circular en su trayectoria.&lt;br /&gt;
&lt;br /&gt;
Por otra parte, es importante destacar que el fluido es incompresible, es decir, la densidad será constante y el volumen no cambia con el movimiento.&lt;br /&gt;
&lt;br /&gt;
En el desarrollo del trabajo se usarán coordenadas cilíndricas (polares).&lt;br /&gt;
&lt;br /&gt;
==Mallado==&lt;br /&gt;
En primer lugar, se representará con un mallado la región ocupada por el fluido. El obstáculo, situado en el centro de la gráfica, será el círculo unidad y el fluido ocupará el espacio circundante. &lt;br /&gt;
&lt;br /&gt;
Para representar el fluido y mostrar que ocupa el espacio exterior al obstáculo, el mallado se describe con el anillo de radio interior 1 y radio exterior 5. Además, los ejes se mostrarán en el intervalo [−4,4]×[−4,4].&lt;br /&gt;
&lt;br /&gt;
Dibujar el mallado facilita analizar el comportamiento del fluido al dividir el espacio que ocupa en pequeñas celdas, que se comportan como unidades de cálculo más manejables, permitiendo evaluar velocidades, temperaturas y otros fenómenos de forma precisa. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Malladogrupo37.jpg|520px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=zeros(size(A));&lt;br /&gt;
&lt;br /&gt;
mesh(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel ('Eje X');&lt;br /&gt;
ylabel ('Eje Y');&lt;br /&gt;
title ('Mallado de la región del fluido');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Velocidad del fluido==&lt;br /&gt;
Sea la función potencial &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \varphi (\rho ,\theta, z)=(\rho +\frac{1}{\rho})\cos (\theta ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Hallamos su función gradiente tal que &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;=∇φ. &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Funcionpotencialgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,50);&lt;br /&gt;
a=linspace(0,2*pi,50);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X=R.*cos(A);&lt;br /&gt;
Y=R.*sin(A);&lt;br /&gt;
Z=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
surf(X,Y,Z);&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 2);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Función potencial');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
[[Archivo:Campodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
[[Archivo:Detallecampodevelocidadesgrupo37.jpg|520px|thumb|right|Función potencial]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
r=linspace(1,5,40);&lt;br /&gt;
a=linspace(0,2*pi,40);&lt;br /&gt;
&lt;br /&gt;
[R,A]=meshgrid(r,a);&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
X1=R.*cos(A);&lt;br /&gt;
Y1=R.*sin(A);&lt;br /&gt;
Z1=(R+1./R).*cos(A);&lt;br /&gt;
&lt;br /&gt;
contour(X1,Y1,Z1,50);&lt;br /&gt;
&lt;br /&gt;
x2=(cos(A))-(cos(A)./R.^2);&lt;br /&gt;
y2=-(sin(A))-(sin(A)./R.^2);&lt;br /&gt;
&lt;br /&gt;
X2=cos(A).*x2-(sin(A)./R).*y2;&lt;br /&gt;
Y2=sin(A).*x2+(cos(A)./R).*y2;&lt;br /&gt;
&lt;br /&gt;
quiver(X1,Y1,X2,Y2,'m');&lt;br /&gt;
&lt;br /&gt;
plot3(cos(A), sin(A), zeros(size(A)), 'k', 'LineWidth', 1);&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-4,4,-4,4]);&lt;br /&gt;
&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
title('Campo de velocidades');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Divergencia y rotacional==&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u}=&lt;br /&gt;
\left(1-\frac{1}{\rho^2}\right)\cos\theta\,\vec{e}_\rho&lt;br /&gt;
-&lt;br /&gt;
\left(1+\frac{1}{\rho^2}\right)\sin\theta\,\vec{e}_\theta&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
==.Rotacional nulo==&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{u}&lt;br /&gt;
=\frac{1}{\rho}&lt;br /&gt;
\begin{vmatrix}&lt;br /&gt;
\vec{e}_\rho &amp;amp; \rho\vec{e}_\theta &amp;amp; \vec{e}_z \\&lt;br /&gt;
\dfrac{\partial}{\partial\rho} &amp;amp; \dfrac{\partial}{\partial\theta} &amp;amp; \dfrac{\partial}{\partial z} \\&lt;br /&gt;
\left(1-\dfrac{1}{\rho^2}\right)\cos\theta &amp;amp;&lt;br /&gt;
-\left(1+\dfrac{1}{\rho^2}\right)\sin\theta &amp;amp;&lt;br /&gt;
0&lt;br /&gt;
\end{vmatrix}&lt;br /&gt;
=-(1 - 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
\;+\;&lt;br /&gt;
(1 - 1/\rho^{2})\sin\theta\,\vec{e}_{z}&lt;br /&gt;
= 0&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
''NO BORRAR'' &lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>HugoZamora</name></author>	</entry>

	</feed>