<?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=MarinaLM</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=MarinaLM"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/MarinaLM"/>
		<updated>2026-04-23T12:18:29Z</updated>
		<subtitle>Contribuciones del usuario</subtitle>
		<generator>MediaWiki 1.26.2</generator>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102897</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102897"/>
				<updated>2025-12-06T21:00:45Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: /* Ejemplos en España */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lancho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
[https://upm365-my.sharepoint.com/:b:/g/personal/marina_lancho_mora_alumnos_upm_es/EZzw9rHffLZPoUThILLU7I4BKid0zz-qXkIcpukB3kG5UA?e=dASjgj Haz clic para descargar el poster]&lt;br /&gt;
&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
[[Archivo:Presa_de_el_atazar_02.jpg|400px|miniaturadeimagen|derecha|Figura 1: La presa de El Atazar vista desde arriba]]&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Figura 2: Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
La presa responde a un campo de presiones modelizado por la función:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g×Q_{w}(H_{w}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{w}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde:&lt;br /&gt;
* P(z) = presión a la altura z&lt;br /&gt;
* P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; = presión atmosférica&lt;br /&gt;
* Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = densidad del agua, 1000kg/m&amp;lt;sup&amp;gt;3&amp;lt;/sup&amp;gt;&lt;br /&gt;
* g = gravedad, 9,81g/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&lt;br /&gt;
* H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = altura a la que se encuentra llena la presa, 125m&lt;br /&gt;
* z = altura&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 3: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Observando la Figura 3, vemos que la presión es lineal, aumentando conforme vamos perdiendo altura. Esto sigue la lógica de la fórmula fundamental de la estática de fluidos.&lt;br /&gt;
&lt;br /&gt;
= Tensiones =&lt;br /&gt;
En este apartado se determinará la fuerza total debida a la presión hidrostática que actúa sobre la cara aguas arriba de la presa, así como la presión media (o tensión superficial equivalente) para los dos modelos geométricos analizados:&lt;br /&gt;
* '''Presa doble curvatura''': &amp;lt;math&amp;gt;b=40m&amp;lt;/math&amp;gt;&lt;br /&gt;
* '''Presa de curvatura simple (cilíndrica)''': &amp;lt;math&amp;gt;b=0m&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El objetivo es comparar ambos modelos y analizar cuál presenta una mejor resistencia frente a la presión ejercida por el agua.&lt;br /&gt;
&lt;br /&gt;
Para determinar cómo actúa la presión hidrostática sobre la presa, se parte de su distribución en función de la profundidad. El agua transmite presión en todas direcciones y ésta depende únicamente de la profundidad. Así, en cualquier punto de la superficie de la presa, la presión viene dada por:&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(z)=\rho g(H-z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
Quitamos &amp;lt;math&amp;gt;p_{0}&amp;lt;/math&amp;gt; ya que, para no ir arrastrando la presión atmosférica, tomamos manométricas.&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; es la densidad del agua, &amp;lt;math&amp;gt;g&amp;lt;/math&amp;gt; es la aceleración de la gravedad, &amp;lt;math&amp;gt;H&amp;lt;/math&amp;gt; es la altura máxima de la lámina de agua y &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; es la distancia medida desde la base de la presa.&lt;br /&gt;
&lt;br /&gt;
Para calcular la fuerza, utilizaremos la siguiente fórmula: &amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como mencionamos en la introducción, la forma del paramento aguas arriba se define como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
&lt;br /&gt;
Y además sabemos que nuestro vector de posición es:  &amp;lt;math&amp;gt;\vec{r}(\theta ,z)=(\rho cos\theta, \rho sin\theta, z)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El área: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;dA=\left | \frac{\partial \vec{r}}{\partial \theta }\times \frac{\partial \vec{r}}{\partial z}\right|d\theta dz\Rightarrow dA=\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}d\theta dz\Rightarrow dA=\left(\rho_{0} + b - \frac{bz^2}{h^2}) \right)\sqrt{1+\left ( \frac{2bz}{H^2} \right )^2}d\theta dz&amp;lt;/math&amp;gt;.&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ya con esto, podemos resolver:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA = \left ( \frac{2\pi}{3} \right )\int_{0}^{H_{agua}}P(z)\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}dz&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cada elemento diferencial de fuerza actúa perpendicularmente a la superficie:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d\overrightarrow{F} = p(z) \, dA \, \overrightarrow{n} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
y la fuerza total se obtiene integrando sobre toda la superficie de la presa:&lt;br /&gt;
&amp;lt;math&amp;gt; \quad F = \int_{\theta_1}^{\theta_2} \int_0^H p(z) \, \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
Evaluando numéricamente con los parámetros del enunciado:&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt; (doble curvatura): &amp;lt;math&amp;gt;F = 3,027 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt; (curvatura simple): &amp;lt;math&amp;gt;F = 2,407 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, para conocer la tensión promedio que soporta la presa, calculamos: &amp;lt;math&amp;gt; \sigma = \frac{F}{A} &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;A&amp;lt;/math&amp;gt; es el área de la superficie:&lt;br /&gt;
&amp;lt;math&amp;gt; A = \int_{\theta_1}^{\theta_2} \int_0^H \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Resultados numéricos son:&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 4,89\times10^4~\text{m²}\;\Longrightarrow\;\sigma = 0,613~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 3,92\times10^4~\text{m²}\;\Longrightarrow\; \sigma = 0,619~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
En resumen, aunque la presa con doble curvatura recibe una fuerza global más alta, la tensión promedio que soporta es menor. Esto significa que los esfuerzos se reparten de manera más equilibrada sobre toda la superficie, haciendo que la estructura responda mejor frente al empuje del agua. Por ello, la configuración de doble curvatura es la que ofrece un comportamiento más seguro, ya que evita acumulaciones de tensión y disminuye la probabilidad de fallos en el material.&lt;br /&gt;
&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
[[Archivo:Esquema-tipos-de-presas.png|700px|miniaturadeimagen|centro|Figura 4: Tipos de presas]]&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Las presas pueden clasificarse de diversas maneras según la forma en que resisten el empuje del agua y los materiales empleados en su construcción. Cada tipología presenta ventajas e inconvenientes que condicionan su idoneidad para un emplazamiento concreto. En líneas generales, podemos clasificarlas en dos grupos: '''presas de fábrica''' (de hormigón) y '''presas de materiales sueltos''', siendo estas últimas las más comunes por su versatilidad.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
====Presas de fábrica====&lt;br /&gt;
Se tratan de presas relativamente esbeltas, construidas con hormigón. Este tipo de presas podemos subclasificarlas a su vez en tres grandes grupos:&lt;br /&gt;
===== Presas de gravedad=====&lt;br /&gt;
[[Archivo:Presas-de-gravedad.gif|300px|miniaturadeimagen|derecha|Figura 5: Presas de gravedad]]&lt;br /&gt;
&lt;br /&gt;
Las presas de gravedad se caracterizan por tener un cuerpo macizo —generalmente de hormigón— cuyo propio peso es el que resiste la presión del agua, evitando el deslizamiento. Su estabilidad depende en gran medida de la solidez y homogeneidad del terreno de cimentación, por lo que suelen construirse sobre macizos rocosos firmes.&lt;br /&gt;
Para impedir el vuelco, la resultante de los empujes (peso propio + presión del agua) debe quedar siempre dentro de la base de la presa. Estas estructuras se ejecutan casi por completo con hormigón en masa, utilizando armaduras solo en zonas puntuales que puedan estar sometidas a tracción, como las galerías interiores.&lt;br /&gt;
Como trabajan principalmente a compresión, es esencial controlar las tensiones de tracción, especialmente en el pie de aguas arriba, uno de los puntos más críticos desde el punto de vista estructural.&lt;br /&gt;
Su principal ventaja es la robustez y sencillez estructural, ya que no dependen de la forma del valle ni de transmitir cargas a los estribos. &lt;br /&gt;
Sin embargo, necesitan un gran volumen de materiales, lo que eleva los costes y las hace menos eficientes en términos económicos y ambientales. Son adecuadas cuando el valle es ancho y existe buena calidad del terreno en el fondo.&lt;br /&gt;
&lt;br /&gt;
===== Presas de arco o bóveda=====&lt;br /&gt;
[[Archivo:Presa-arco.gif|300px|miniaturadeimagen|derecha|Figura 6: Presas de arco o bóveda]]&lt;br /&gt;
Por otro lado, las presas de arco o bóveda aprovechan la curvatura de su estructura para transmitir la mayor parte del empuje del agua hacia los estribos del valle. Gracias a este comportamiento, es posible reducir significativamente la cantidad de hormigón, lo que las convierte en soluciones especialmente eficientes.&lt;br /&gt;
El arco actúa como antifunicular de la carga radial uniformemente repartida; es decir, trabaja esencialmente a esfuerzos axiles de compresión, sin tracciones relevantes. Estos esfuerzos se transmiten directamente a los estribos, que deben ser rocas muy resistentes capaces de soportar las elevadas cargas concentradas.&lt;br /&gt;
Para que este tipo de presa sea viable, es fundamental que el valle sea estrecho o en forma de garganta, y que los laterales presenten una alta calidad geológica. Aunque su diseño estructural es más complejo y exige un análisis geotécnico más riguroso, las presas de arco permiten alcanzar grandes alturas con secciones delgadas y un uso mucho más eficiente de materiales.&lt;br /&gt;
La sección de este tipo de presas puede ser:&lt;br /&gt;
*  '''Presa arco ''': sección trapezoidal de planta curva.&lt;br /&gt;
*  '''De doble curvatura ''': sección curva de planta curva. También se conocen como presas en bóveda.&lt;br /&gt;
*  '''Arco-gravedad ''': combinan la curvatura de una presa de arco con parte del peso propio de una presa de gravedad. Esto les permite adaptarse a valles que no son tan estrechos como los necesarios para una presa de arco pura, pero que tampoco justifican un muro macizo típico de gravedad. Su diseño permite ahorrar materiales respecto a una presa de gravedad, aunque exige buen apoyo lateral y estudios geológicos rigurosos. Son un compromiso que aprovecha parcialmente las ventajas de ambos sistemas.&lt;br /&gt;
&lt;br /&gt;
===== Presas de contrafuertes=====&lt;br /&gt;
[[Archivo:Esquema-presas-aligeradas-600x249.png|300px|miniaturadeimagen|derecha|Figura 7: Presas de contrafuertes]]&lt;br /&gt;
También existen las presas de contrafuertes. Este tipo de presa presenta un mecanismo resistente similar al de las presas de gravedad, aunque con un diseño más ligero. La parte principal o cabeza de la presa se encuentra inclinada y apoyada sobre una serie de contrafuertes —elementos longitudinales o “colas”— situados aguas abajo, que transmiten los esfuerzos al terreno a lo largo de toda la estructura.&lt;br /&gt;
&lt;br /&gt;
A diferencia de las presas de gravedad, estas estructuras prácticamente no requieren supresión, y junto con la contribución del peso de la cuña de agua sobre la cabeza, permiten reducir notablemente la masa de hormigón empleada. En cuanto a proporciones, el ancho de la base suele ser del orden de la altura de la presa, lo que las hace esbeltas en comparación con las de gravedad maciza.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, su forma más compleja exige mayor cantidad de mano de obra y precisión constructiva, lo que incrementa los costes pese al menor volumen de material. Por este motivo, y dado que existen alternativas más eficientes, hoy en día apenas se construyen presas de contrafuertes..&lt;br /&gt;
&lt;br /&gt;
====Presas de materiales sueltos====&lt;br /&gt;
[[Archivo:Presa-materiales-sueltos.gif|300px|miniaturadeimagen|derecha|Figura 8: Presas de materiales sueltos]]&lt;br /&gt;
Las presas de materiales sueltos son estructuras muy versátiles que pueden construirse prácticamente con cualquier tipo de material disponible en la zona —gravas, arenas, arcillas o materiales seleccionados—, lo que explica que sean las presas más abundantes del mundo. Presentan una sección trapezoidal y son mucho menos esbeltas que las presas de fábrica (hormigón), debido a que necesitan taludes amplios para garantizar su estabilidad.Su característica más distintiva es la zonificación, es decir, la colocación deliberada de cada tipo de material en la zona donde mejor cumple su función: un núcleo impermeable que minimiza filtraciones, espaldones de materiales más permeables que aportan estabilidad y filtros o drenes que controlan el flujo de agua. Esta organización interna permite optimizar recursos locales y adaptar la presa a condiciones geotécnicas muy diversas..&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Ejemplos en España ===&lt;br /&gt;
[[Archivo:Presaalmendra.jpg|250px|miniaturadeimagen|derecha|Figura 9: Presa de Almendra]]&lt;br /&gt;
En España existen varios ejemplos destacados que ilustran la aplicación de estas tipologías:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
La '''Presa de Almendra''', situada sobre el río Tormes, es una de las más altas de España y se clasifica como '''presa de bóveda o doble curvatura'''. Su ubicación, en un valle profundo con paredes rocosas muy estables, es ideal para este tipo de presa, ya que permite transmitir el empuje hacia los estribos y reducir considerablemente el volumen de hormigón. Esta tipología resulta especialmente adecuada para grandes alturas y para ubicar centrales hidroeléctricas de alta potencia aprovechando saltos muy profundos.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presa-de-ricobayo.jpeg|200px|miniaturadeimagen|derecha|Figura 10: Presa de Ricobayo]]&lt;br /&gt;
La Presa de Ricobayo, ubicada en el río Esla, es un ejemplo clásico de presa de gravedad. En este tramo el valle es más ancho y cuenta con cimientos graníticos muy estables, adecuados para soportar el peso de un muro masivo. Su diseño resulta más sencillo y robusto que el de una presa de arco, aunque su construcción implica emplear un volumen de hormigón considerablemente mayor.&lt;br /&gt;
Este tipo de solución es óptima cuando las condiciones geológicas del fondo del valle son favorables, pero los estribos laterales no presentan la resistencia necesaria como para transmitir grandes cargas, lo que descarta la tipología de arco.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeiberdrola.jpg|200px|miniaturadeimagen|derecha|Figura 11: Presa de Aldeadávila]]&lt;br /&gt;
La Presa de Aldeadávila, situada en el río Duero, es una de las obras hidráulicas más relevantes de España y se clasifica como presa de arco-gravedad. Su emplazamiento en los Arribes del Duero, un desfiladero estrecho y profundamente encajado en roca, hace que la tipología de arco resulte adecuada; sin embargo, la geometría del valle y las altas exigencias de estabilidad llevaron a optar por una solución mixta.&lt;br /&gt;
En este diseño, una parte del empuje del agua se transmite por curvatura a los estribos, mientras que otra parte se resiste mediante el peso propio del muro, combinando así la eficiencia estructural del arco con la robustez de una presa de gravedad. Gracias a ello, Aldeadávila logra un excelente comportamiento frente a solicitaciones muy elevadas y permite alojar uno de los complejos hidroeléctricos más potentes del país.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeatazar.png|250px|miniaturadeimagen|derecha|Figura 12: Presa de El Atazar]]&lt;br /&gt;
Otro ejemplo es mismamente la presa sobre la que va este trabajo, la '''Presa de El Atazar'''. Es una de las presas más singulares de España y también corresponde a una tipología de '''arco-gravedad'''. Su diseño curvado y su considerable altura aprovechan la estrechez del valle pese a la calidad de la roca de los estribos, que es una pizarra con un ángulo de estratificación poco adecuado para una presa de este estilo. Por ello los estribos tienen una alteración respecto al diseño original empleando 5 veces más hormigón del planeado, como se ve claramente en la imagen. No obstante es una estructura muy estable.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En conjunto, la elección del tipo de presa depende principalmente de la forma del valle, la resistencia de los materiales geológicos, la altura deseada y los recursos económicos disponibles. &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''En resumen'''&lt;br /&gt;
* Las presas de gravedad aportan gran estabilidad pero requieren mucho material.&lt;br /&gt;
* Las de arco y bóveda son más eficientes, pero dependen de un terreno lateral muy resistente.&lt;br /&gt;
* Las de arco-gravedad son una solución intermedia que proporciona flexibilidad.&lt;br /&gt;
* Las de contrafuertes permiten ahorrar material a costa de mayor complejidad constructiva. &lt;br /&gt;
* Las de materiales sueltos son muy versátiles, depende del material que utilicen.&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Figura 13: Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Figura 14: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Polares:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Resolvemos la integral: &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S( r)\,  r \, d r \, d\theta = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S_0 \left( 1 + \alpha e^{- r^2/L^2} \right)  r \, d r \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Separando términos:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = S_0 \theta \int_0^R r\,dr&lt;br /&gt;
  + S_0 \alpha \theta \int_0^R r e^{-r^2/L^2}\,dr \qquad        \text{donde  } \theta =\theta _{1}-\theta _{0}  &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las integrales son&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\int_0^R r\,dr = \frac{R^2}{2}, \qquad&lt;br /&gt;
\int_0^R r e^{-r^2/L^2}\,dr&lt;br /&gt;
  = \frac{L^2}{2}\left(1-e^{-R^2/L^2}\right).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por tanto,&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M = \frac{S_0 \theta}{2}&lt;br /&gt;
    \left[&lt;br /&gt;
      R^2 + \alpha L^2 \left(1-e^{-R^2/L^2}\right)&lt;br /&gt;
    \right].&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Finalmente, el volumen de sedimentos es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V = \frac{M}{\rho_s}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Usamos la expresión obtenida:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{S_0\theta}{2}\left[R^2+\alpha L^2\left(1-e^{-R^2/L^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores:&lt;br /&gt;
\(S_0=50\), \(\alpha=3\), \(L=500\), \(R=190\), \(\theta=2\pi/3\).&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[190^2+3\cdot 500^2\left(1-e^{-190^2/500^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos cada término:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
190^2=36100,\qquad 500^2=250000,\qquad \frac{190^2}{500^2}=0.1444&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
e^{-0.1444}\approx 0.8652,\qquad 1-0.8652=0.1348&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+3\cdot 250000\cdot 0.1348\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
3\cdot 250000\cdot 0.1348=101100&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Así:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+101100\right]&lt;br /&gt;
=\frac{50\cdot (2\pi/3)}{2}\cdot 137200&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{50\cdot (2\pi/3)}{2}=\frac{50\pi}{3}\approx 52.3599&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M\approx 52.3599\cdot 137200\approx 7.17\times 10^6\;\text{kg}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El volumen de sedimentos es:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V=\frac{M}{\rho_s}=\frac{7.17\times 10^6}{1500}\approx 4.78\times 10^3\;\text{m}^3&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
y representa una fracción de la capacidad:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{4.78\times 10^3}{4.25\times 10^8}\times 100\approx 0.00112\%.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Figura 15: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Figura 16: Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Figura 17: Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Figura 18: Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Figura 19: Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
[[Archivo:Horizontalllll.jpg|500px|miniaturadeimagen|derecha|Figura 20: Representación horizontal de la divergencia hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Verticaaaal.jpg|500px|miniaturadeimagen|derecha|Figura 21:Representación vertical con x=0 de la divergencia hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear; clc; close all;&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos y geométricos&lt;br /&gt;
v0 = 0.5; &lt;br /&gt;
v1 = 0.1; &lt;br /&gt;
R  = 30; &lt;br /&gt;
phi = pi/6; &lt;br /&gt;
Hagua = 125;&lt;br /&gt;
&lt;br /&gt;
H  = 134; &lt;br /&gt;
rho0 = 150;&lt;br /&gt;
b = 40;&lt;br /&gt;
&lt;br /&gt;
% Radio de la presa a la altura del agua&lt;br /&gt;
rho_lim = rho0 + b*(1 - (Hagua^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
%   PLANO HORIZONTAL (z = Hagua)&lt;br /&gt;
&lt;br /&gt;
nx = 25;  &lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x = linspace(-50, 50, nx);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[X, Y] = meshgrid(x, y);&lt;br /&gt;
Z = Hagua * ones(size(X));&lt;br /&gt;
&lt;br /&gt;
% Campo en z = constante&lt;br /&gt;
dist2 = X.^2 + Y.^2;  &lt;br /&gt;
exp_term = exp(-dist2 / R^2);&lt;br /&gt;
&lt;br /&gt;
Vx = v0 * cos(phi) * exp_term;&lt;br /&gt;
Vy = v0 * sin(phi) * exp_term;&lt;br /&gt;
Vz = v1 * exp_term .* sin(pi * Z / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales&lt;br /&gt;
dx = x(2) - x(1);&lt;br /&gt;
dy = y(2) - y(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dx, dVx_dy] = gradient(Vx, dx, dy);&lt;br /&gt;
[dVy_dx, dVy_dy] = gradient(Vy, dx, dy);&lt;br /&gt;
[dVz_dx, dVz_dy] = gradient(Vz, dx, dy);&lt;br /&gt;
&lt;br /&gt;
% Rotacional en el plano horizontal&lt;br /&gt;
omega_x = dVz_dy;&lt;br /&gt;
omega_y = -dVz_dx;&lt;br /&gt;
omega_z = dVy_dx - dVx_dy;&lt;br /&gt;
&lt;br /&gt;
omega_mag = sqrt(omega_x.^2 + omega_y.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(X, Y, omega_mag); &lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
quiver(X, Y, omega_x, omega_y, 1.8,'k'); &lt;br /&gt;
title('Rotacional en el plano horizontal (z = H_{agua})');&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%   PLANO VERTICAL (x = 0)&lt;br /&gt;
&lt;br /&gt;
nz = 25;&lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x0 = 0;        &lt;br /&gt;
&lt;br /&gt;
z = linspace(0, Hagua, nz);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[Yv, Zv] = meshgrid(y, z);&lt;br /&gt;
Xv = x0 * ones(size(Yv));&lt;br /&gt;
&lt;br /&gt;
% Campo de velocidades en el plano vertical&lt;br /&gt;
dist2v = Xv.^2 + Yv.^2;&lt;br /&gt;
exp_term_v = exp(-dist2v / R^2);&lt;br /&gt;
&lt;br /&gt;
Vxv = v0 * cos(phi) * exp_term_v;&lt;br /&gt;
Vyv = v0 * sin(phi) * exp_term_v;&lt;br /&gt;
Vzv = v1 * exp_term_v .* sin(pi * Zv / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales en el plano vertical (∂/∂y y ∂/∂z)&lt;br /&gt;
dyv = y(2) - y(1);&lt;br /&gt;
dzv = z(2) - z(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dy_v, dVx_dz_v] = gradient(Vxv, dyv, dzv);&lt;br /&gt;
[dVy_dy_v, dVy_dz_v] = gradient(Vyv, dyv, dzv);&lt;br /&gt;
[dVz_dy_v, dVz_dz_v] = gradient(Vzv, dyv, dzv);&lt;br /&gt;
&lt;br /&gt;
% Rotacional completo:&lt;br /&gt;
&lt;br /&gt;
omega_x_v = dVz_dy_v - dVy_dz_v;&lt;br /&gt;
omega_y_v = dVx_dz_v;          &lt;br /&gt;
omega_z_v = - dVx_dy_v;         &lt;br /&gt;
&lt;br /&gt;
omega_mag_v = sqrt(omega_x_v.^2 + omega_z_v.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(Yv, Zv, omega_mag_v);&lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Campo de rotacional proyectado (y,z)&lt;br /&gt;
quiver(Yv, Zv, omega_z_v, omega_x_v, 1.5, 'k');&lt;br /&gt;
&lt;br /&gt;
title('Rotacional en el plano vertical (x = 0)');&lt;br /&gt;
xlabel('y (m)'); &lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
El '''caudal''' nos dice cuánta agua o líquido está fluyendo y qué tan rápido lo hace. Conocer el caudal del río es fundamental para una presa porque permite: asegurar la estructura, dimensionar correctamente la presa y sus compuertas, gestionar el agua para riego o energía, y prever riesgos como inundaciones o sequías.&lt;br /&gt;
&lt;br /&gt;
Sabemos que nuestro campo de velocidad de entrada es el siguiente:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pues tenemos como condición que &amp;lt;math&amp;gt;v_{1}=0&amp;lt;/math&amp;gt;, es decir, que no tenga componente vertical.&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El caudal se define con la siguiente fórmula: &amp;lt;math&amp;gt;Q=v S&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; la velocidad y &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; la sección transversal.&amp;lt;br /&amp;gt;&lt;br /&gt;
Sin embargo, al no tener una sección fácil de calcular (rectángulo, circunferencia, triángulo...), usaremos la siguiente: &amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v\cdot ndS&amp;lt;/math&amp;gt;.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabemos que el caudal entra en dirección &amp;lt;math&amp;gt;\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;, entonces, un vector normal de la sección transversal. (&amp;lt;math&amp;gt;\vec n = \left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;).&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculemos el producto &amp;lt;math&amp;gt;v\cdot n&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;\cdot\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos\varphi cos\varphi +sin\varphi sin\varphi \right )=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos^2\varphi+sin^2\varphi\right )=v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tenemos información sobre el radio, vamos a pasarlo a coordenadas cilíndricas para simplificar la integral:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}dxdy\Rightarrow \begin{Bmatrix}&lt;br /&gt;
x=\rho cos\theta   \\&lt;br /&gt;
y=\rho sin\theta   \\&lt;br /&gt;
dxdy\xrightarrow[]{\left | J\right |}\rho d\rho d\theta  \\&lt;br /&gt;
x^2+y^2=\rho ^2 \\&lt;br /&gt;
0\leq \rho \leq 100\\&lt;br /&gt;
0\leq \theta &amp;lt; 2\pi\\&lt;br /&gt;
\end{Bmatrix}\Rightarrow \int_{0}^{2\pi}\int_{0}^{100}v_{0}\rho e^{-\frac{\rho ^2}{R^{2}}}d\rho d\theta &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora resolvemos la integral, para ello haremos un cambio de variable:&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;2\pi v_{0}\int_{0}^{100}e^{-\frac{\rho ^2}{R^{2}}}\rho d\rho\Rightarrow \left\{ u=\frac{\rho ^2}{R^2}\Rightarrow du=\frac{2\rho}{R^2}d \rho \Rightarrow \rho d \rho =\frac{R^2}{2}du\right\}\Rightarrow 2\pi v_{0}\frac{R ^2}{2}\int_{0}^{u=\frac{100^2}{R^2}}e^{-u}du = \pi v_{0}R^2\left [ -e^{-u} \right ]_{0}^{\frac{100^2}{R^2}} = \pi v_{0}R^2(1-e^{-\frac{100^2}{R^2}})\approx 1413,5 m^3/s &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=Bibliografía y webgrafía=&lt;br /&gt;
Todo el código y gráficas realizadas con MATLAB.&amp;lt;br /&amp;gt;&lt;br /&gt;
Hecho con la asistencia de ChatGPT.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Teoría de Campos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Física de Sólidos y Fluidos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Tipos de presas: &amp;lt;br /&amp;gt;&lt;br /&gt;
https://masqueingenieria.com/blog/tipos-de-presas-y-su-clasificacion/ &amp;lt;br /&amp;gt;&lt;br /&gt;
https://webaero.net/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.iagua.es/data/infraestructuras/presas/almendra&amp;lt;br /&amp;gt;&lt;br /&gt;
https://aldeadavila.es/presa-de-iberdrola/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://es.linkedin.com/pulse/la-presa-de-el-atazar-fundaci%C3%B3n-canal&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.cronicanorte.es/cifras-curiosidades-del-embalse-del-atazar-canal-isabel-ii/98414&amp;lt;br /&amp;gt;&lt;br /&gt;
Póster hecho con canva&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102460</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102460"/>
				<updated>2025-12-06T18:14:31Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lancho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
[https://upm365-my.sharepoint.com/:b:/g/personal/marina_lancho_mora_alumnos_upm_es/EZzw9rHffLZPoUThILLU7I4BKid0zz-qXkIcpukB3kG5UA?e=dASjgj Haz clic para descargar el poster]&lt;br /&gt;
&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
[[Archivo:Presa_de_el_atazar_02.jpg|400px|miniaturadeimagen|derecha|Figura 1: La presa de El Atazar vista desde arriba]]&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Figura 2: Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
La presa responde a un campo de presiones modelizado por la función:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g×Q_{w}(H_{w}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{w}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde:&lt;br /&gt;
* P(z) = presión a la altura z&lt;br /&gt;
* P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; = presión atmosférica&lt;br /&gt;
* Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = densidad del agua, 1000kg/m&amp;lt;sup&amp;gt;3&amp;lt;/sup&amp;gt;&lt;br /&gt;
* g = gravedad, 9,81g/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&lt;br /&gt;
* H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = altura a la que se encuentra llena la presa, 125m&lt;br /&gt;
* z = altura&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 3: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Observando la Figura 3, vemos que la presión es lineal, aumentando conforme vamos perdiendo altura. Esto sigue la lógica de la fórmula fundamental de la estática de fluidos.&lt;br /&gt;
&lt;br /&gt;
= Tensiones =&lt;br /&gt;
En este apartado se determinará la fuerza total debida a la presión hidrostática que actúa sobre la cara aguas arriba de la presa, así como la presión media (o tensión superficial equivalente) para los dos modelos geométricos analizados:&lt;br /&gt;
* '''Presa doble curvatura''': &amp;lt;math&amp;gt;b=40m&amp;lt;/math&amp;gt;&lt;br /&gt;
* '''Presa de curvatura simple (cilíndrica)''': &amp;lt;math&amp;gt;b=0m&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El objetivo es comparar ambos modelos y analizar cuál presenta una mejor resistencia frente a la presión ejercida por el agua.&lt;br /&gt;
&lt;br /&gt;
Para determinar cómo actúa la presión hidrostática sobre la presa, se parte de su distribución en función de la profundidad. El agua transmite presión en todas direcciones y ésta depende únicamente de la profundidad. Así, en cualquier punto de la superficie de la presa, la presión viene dada por:&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(z)=\rho g(H-z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
Quitamos &amp;lt;math&amp;gt;p_{0}&amp;lt;/math&amp;gt; ya que, para no ir arrastrando la presión atmosférica, tomamos manométricas.&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; es la densidad del agua, &amp;lt;math&amp;gt;g&amp;lt;/math&amp;gt; es la aceleración de la gravedad, &amp;lt;math&amp;gt;H&amp;lt;/math&amp;gt; es la altura máxima de la lámina de agua y &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; es la distancia medida desde la base de la presa.&lt;br /&gt;
&lt;br /&gt;
Para calcular la fuerza, utilizaremos la siguiente fórmula: &amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como mencionamos en la introducción, la forma del paramento aguas arriba se define como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
&lt;br /&gt;
Y además sabemos que nuestro vector de posición es:  &amp;lt;math&amp;gt;\vec{r}(\theta ,z)=(\rho cos\theta, \rho sin\theta, z)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El área: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;dA=\left | \frac{\partial \vec{r}}{\partial \theta }\times \frac{\partial \vec{r}}{\partial z}\right|d\theta dz\Rightarrow dA=\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}d\theta dz\Rightarrow dA=\left(\rho_{0} + b - \frac{bz^2}{h^2}) \right)\sqrt{1+\left ( \frac{2bz}{H^2} \right )^2}d\theta dz&amp;lt;/math&amp;gt;.&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ya con esto, podemos resolver:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA = \left ( \frac{2\pi}{3} \right )\int_{0}^{H_{agua}}P(z)\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}dz&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cada elemento diferencial de fuerza actúa perpendicularmente a la superficie:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d\overrightarrow{F} = p(z) \, dA \, \overrightarrow{n} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
y la fuerza total se obtiene integrando sobre toda la superficie de la presa:&lt;br /&gt;
&amp;lt;math&amp;gt; \quad F = \int_{\theta_1}^{\theta_2} \int_0^H p(z) \, \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
Evaluando numéricamente con los parámetros del enunciado:&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt; (doble curvatura): &amp;lt;math&amp;gt;F = 3,027 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt; (curvatura simple): &amp;lt;math&amp;gt;F = 2,407 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, para conocer la tensión promedio que soporta la presa, calculamos: &amp;lt;math&amp;gt; \sigma = \frac{F}{A} &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;A&amp;lt;/math&amp;gt; es el área de la superficie:&lt;br /&gt;
&amp;lt;math&amp;gt; A = \int_{\theta_1}^{\theta_2} \int_0^H \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Resultados numéricos son:&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 4,89\times10^4~\text{m²}\;\Longrightarrow\;\sigma = 0,613~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 3,92\times10^4~\text{m²}\;\Longrightarrow\; \sigma = 0,619~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
En resumen, aunque la presa con doble curvatura recibe una fuerza global más alta, la tensión promedio que soporta es menor. Esto significa que los esfuerzos se reparten de manera más equilibrada sobre toda la superficie, haciendo que la estructura responda mejor frente al empuje del agua. Por ello, la configuración de doble curvatura es la que ofrece un comportamiento más seguro, ya que evita acumulaciones de tensión y disminuye la probabilidad de fallos en el material.&lt;br /&gt;
&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
[[Archivo:Esquema-tipos-de-presas.png|700px|miniaturadeimagen|centro|Figura 4: Tipos de presas]]&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Las presas pueden clasificarse de diversas maneras según la forma en que resisten el empuje del agua y los materiales empleados en su construcción. Cada tipología presenta ventajas e inconvenientes que condicionan su idoneidad para un emplazamiento concreto. En líneas generales, podemos clasificarlas en dos grupos: '''presas de fábrica''' (de hormigón) y '''presas de materiales sueltos''', siendo estas últimas las más comunes por su versatilidad.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
====Presas de fábrica====&lt;br /&gt;
Se tratan de presas relativamente esbeltas, construidas con hormigón. Este tipo de presas podemos subclasificarlas a su vez en tres grandes grupos:&lt;br /&gt;
===== Presas de gravedad=====&lt;br /&gt;
[[Archivo:Presas-de-gravedad.gif|300px|miniaturadeimagen|derecha|Figura 5: Presas de gravedad]]&lt;br /&gt;
&lt;br /&gt;
Las presas de gravedad se caracterizan por tener un cuerpo macizo —generalmente de hormigón— cuyo propio peso es el que resiste la presión del agua, evitando el deslizamiento. Su estabilidad depende en gran medida de la solidez y homogeneidad del terreno de cimentación, por lo que suelen construirse sobre macizos rocosos firmes.&lt;br /&gt;
Para impedir el vuelco, la resultante de los empujes (peso propio + presión del agua) debe quedar siempre dentro de la base de la presa. Estas estructuras se ejecutan casi por completo con hormigón en masa, utilizando armaduras solo en zonas puntuales que puedan estar sometidas a tracción, como las galerías interiores.&lt;br /&gt;
Como trabajan principalmente a compresión, es esencial controlar las tensiones de tracción, especialmente en el pie de aguas arriba, uno de los puntos más críticos desde el punto de vista estructural.&lt;br /&gt;
Su principal ventaja es la robustez y sencillez estructural, ya que no dependen de la forma del valle ni de transmitir cargas a los estribos. &lt;br /&gt;
Sin embargo, necesitan un gran volumen de materiales, lo que eleva los costes y las hace menos eficientes en términos económicos y ambientales. Son adecuadas cuando el valle es ancho y existe buena calidad del terreno en el fondo.&lt;br /&gt;
&lt;br /&gt;
===== Presas de arco o bóveda=====&lt;br /&gt;
[[Archivo:Presa-arco.gif|300px|miniaturadeimagen|derecha|Figura 6: Presas de arco o bóveda]]&lt;br /&gt;
Por otro lado, las presas de arco o bóveda aprovechan la curvatura de su estructura para transmitir la mayor parte del empuje del agua hacia los estribos del valle. Gracias a este comportamiento, es posible reducir significativamente la cantidad de hormigón, lo que las convierte en soluciones especialmente eficientes.&lt;br /&gt;
El arco actúa como antifunicular de la carga radial uniformemente repartida; es decir, trabaja esencialmente a esfuerzos axiles de compresión, sin tracciones relevantes. Estos esfuerzos se transmiten directamente a los estribos, que deben ser rocas muy resistentes capaces de soportar las elevadas cargas concentradas.&lt;br /&gt;
Para que este tipo de presa sea viable, es fundamental que el valle sea estrecho o en forma de garganta, y que los laterales presenten una alta calidad geológica. Aunque su diseño estructural es más complejo y exige un análisis geotécnico más riguroso, las presas de arco permiten alcanzar grandes alturas con secciones delgadas y un uso mucho más eficiente de materiales.&lt;br /&gt;
La sección de este tipo de presas puede ser:&lt;br /&gt;
*  '''Presa arco ''': sección trapezoidal de planta curva.&lt;br /&gt;
*  '''De doble curvatura ''': sección curva de planta curva. También se conocen como presas en bóveda.&lt;br /&gt;
*  '''Arco-gravedad ''': combinan la curvatura de una presa de arco con parte del peso propio de una presa de gravedad. Esto les permite adaptarse a valles que no son tan estrechos como los necesarios para una presa de arco pura, pero que tampoco justifican un muro macizo típico de gravedad. Su diseño permite ahorrar materiales respecto a una presa de gravedad, aunque exige buen apoyo lateral y estudios geológicos rigurosos. Son un compromiso que aprovecha parcialmente las ventajas de ambos sistemas.&lt;br /&gt;
&lt;br /&gt;
===== Presas de contrafuertes=====&lt;br /&gt;
[[Archivo:Esquema-presas-aligeradas-600x249.png|300px|miniaturadeimagen|derecha|Figura 7: Presas de contrafuertes]]&lt;br /&gt;
También existen las presas de contrafuertes. Este tipo de presa presenta un mecanismo resistente similar al de las presas de gravedad, aunque con un diseño más ligero. La parte principal o cabeza de la presa se encuentra inclinada y apoyada sobre una serie de contrafuertes —elementos longitudinales o “colas”— situados aguas abajo, que transmiten los esfuerzos al terreno a lo largo de toda la estructura.&lt;br /&gt;
&lt;br /&gt;
A diferencia de las presas de gravedad, estas estructuras prácticamente no requieren supresión, y junto con la contribución del peso de la cuña de agua sobre la cabeza, permiten reducir notablemente la masa de hormigón empleada. En cuanto a proporciones, el ancho de la base suele ser del orden de la altura de la presa, lo que las hace esbeltas en comparación con las de gravedad maciza.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, su forma más compleja exige mayor cantidad de mano de obra y precisión constructiva, lo que incrementa los costes pese al menor volumen de material. Por este motivo, y dado que existen alternativas más eficientes, hoy en día apenas se construyen presas de contrafuertes..&lt;br /&gt;
&lt;br /&gt;
====Presas de materiales sueltos====&lt;br /&gt;
[[Archivo:Presa-materiales-sueltos.gif|300px|miniaturadeimagen|derecha|Figura 8: Presas de materiales sueltos]]&lt;br /&gt;
Las presas de materiales sueltos son estructuras muy versátiles que pueden construirse prácticamente con cualquier tipo de material disponible en la zona —gravas, arenas, arcillas o materiales seleccionados—, lo que explica que sean las presas más abundantes del mundo. Presentan una sección trapezoidal y son mucho menos esbeltas que las presas de fábrica (hormigón), debido a que necesitan taludes amplios para garantizar su estabilidad.Su característica más distintiva es la zonificación, es decir, la colocación deliberada de cada tipo de material en la zona donde mejor cumple su función: un núcleo impermeable que minimiza filtraciones, espaldones de materiales más permeables que aportan estabilidad y filtros o drenes que controlan el flujo de agua. Esta organización interna permite optimizar recursos locales y adaptar la presa a condiciones geotécnicas muy diversas..&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Ejemplos en España ===&lt;br /&gt;
[[Archivo:Presaalmendra.jpg|250px|miniaturadeimagen|derecha|Figura 9: Presa de Almendra]]&lt;br /&gt;
En España existen varios ejemplos destacados que ilustran la aplicación de estas tipologías:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
La '''Presa de Almendra''', situada sobre el río Tormes, es una de las más altas de España y se clasifica como '''presa de bóveda o doble curvatura'''. Su ubicación, en un valle profundo con paredes rocosas muy estables, es ideal para este tipo de presa, ya que permite transmitir el empuje hacia los estribos y reducir considerablemente el volumen de hormigón. Esta tipología resulta especialmente adecuada para grandes alturas y para ubicar centrales hidroeléctricas de alta potencia aprovechando saltos muy profundos.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presa-de-ricobayo.jpeg|200px|miniaturadeimagen|derecha|Figura 10: Presa de Ricobayo]]&lt;br /&gt;
La Presa de Ricobayo, ubicada en el río Esla, es un ejemplo clásico de presa de gravedad. En este tramo el valle es más ancho y cuenta con cimientos graníticos muy estables, adecuados para soportar el peso de un muro masivo. Su diseño resulta más sencillo y robusto que el de una presa de arco, aunque su construcción implica emplear un volumen de hormigón considerablemente mayor.&lt;br /&gt;
Este tipo de solución es óptima cuando las condiciones geológicas del fondo del valle son favorables, pero los estribos laterales no presentan la resistencia necesaria como para transmitir grandes cargas, lo que descarta la tipología de arco.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeiberdrola.jpg|200px|miniaturadeimagen|derecha|Figura 11: Presa de Aldeadávila]]&lt;br /&gt;
La Presa de Aldeadávila, situada en el río Duero, es una de las obras hidráulicas más relevantes de España y se clasifica como presa de arco-gravedad. Su emplazamiento en los Arribes del Duero, un desfiladero estrecho y profundamente encajado en roca, hace que la tipología de arco resulte adecuada; sin embargo, la geometría del valle y las altas exigencias de estabilidad llevaron a optar por una solución mixta.&lt;br /&gt;
En este diseño, una parte del empuje del agua se transmite por curvatura a los estribos, mientras que otra parte se resiste mediante el peso propio del muro, combinando así la eficiencia estructural del arco con la robustez de una presa de gravedad. Gracias a ello, Aldeadávila logra un excelente comportamiento frente a solicitaciones muy elevadas y permite alojar uno de los complejos hidroeléctricos más potentes del país.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeatazar.png|250px|miniaturadeimagen|derecha|Figura 12: Presa de El Atazar]]&lt;br /&gt;
Otro ejemplo es mismamente la presa sobre la que va este trabajo, la '''Presa de El Atazar'''. Es una de las presas más singulares de España y también corresponde a una tipología de '''arco-gravedad'''. Su diseño curvado y su considerable altura aprovechan la estrechez del valle y la calidad de la roca de los estribos, al mismo tiempo que la masa central de la presa contribuye a resistir el empuje del agua. Esta combinación permitió optimizar el gasto de material y obtener una estructura muy estable. Su forma y funcionamiento demuestran cómo en algunos valles de anchura intermedia resulta más adecuado emplear un diseño mixto que uno puramente de arco o puramente de gravedad.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En conjunto, la elección del tipo de presa depende principalmente de la forma del valle, la resistencia de los materiales geológicos, la altura deseada y los recursos económicos disponibles. &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''En resumen'''&lt;br /&gt;
* Las presas de gravedad aportan gran estabilidad pero requieren mucho material.&lt;br /&gt;
* Las de arco y bóveda son más eficientes, pero dependen de un terreno lateral muy resistente.&lt;br /&gt;
* Las de arco-gravedad son una solución intermedia que proporciona flexibilidad.&lt;br /&gt;
* Las de contrafuertes permiten ahorrar material a costa de mayor complejidad constructiva. &lt;br /&gt;
* Las de materiales sueltos son muy versátiles, depende del material que utilicen.&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Figura 13: Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Figura 14: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Polares:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Resolvemos la integral: &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S( r)\,  r \, d r \, d\theta = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S_0 \left( 1 + \alpha e^{- r^2/L^2} \right)  r \, d r \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Separando términos:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = S_0 \theta \int_0^R r\,dr&lt;br /&gt;
  + S_0 \alpha \theta \int_0^R r e^{-r^2/L^2}\,dr \qquad        \text{donde  } \theta =\theta _{1}-\theta _{0}  &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las integrales son&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\int_0^R r\,dr = \frac{R^2}{2}, \qquad&lt;br /&gt;
\int_0^R r e^{-r^2/L^2}\,dr&lt;br /&gt;
  = \frac{L^2}{2}\left(1-e^{-R^2/L^2}\right).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por tanto,&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M = \frac{S_0 \theta}{2}&lt;br /&gt;
    \left[&lt;br /&gt;
      R^2 + \alpha L^2 \left(1-e^{-R^2/L^2}\right)&lt;br /&gt;
    \right].&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Finalmente, el volumen de sedimentos es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V = \frac{M}{\rho_s}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Usamos la expresión obtenida:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{S_0\theta}{2}\left[R^2+\alpha L^2\left(1-e^{-R^2/L^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores:&lt;br /&gt;
\(S_0=50\), \(\alpha=3\), \(L=500\), \(R=190\), \(\theta=2\pi/3\).&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[190^2+3\cdot 500^2\left(1-e^{-190^2/500^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos cada término:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
190^2=36100,\qquad 500^2=250000,\qquad \frac{190^2}{500^2}=0.1444&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
e^{-0.1444}\approx 0.8652,\qquad 1-0.8652=0.1348&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+3\cdot 250000\cdot 0.1348\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
3\cdot 250000\cdot 0.1348=101100&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Así:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+101100\right]&lt;br /&gt;
=\frac{50\cdot (2\pi/3)}{2}\cdot 137200&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{50\cdot (2\pi/3)}{2}=\frac{50\pi}{3}\approx 52.3599&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M\approx 52.3599\cdot 137200\approx 7.17\times 10^6\;\text{kg}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El volumen de sedimentos es:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V=\frac{M}{\rho_s}=\frac{7.17\times 10^6}{1500}\approx 4.78\times 10^3\;\text{m}^3&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
y representa una fracción de la capacidad:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{4.78\times 10^3}{4.25\times 10^8}\times 100\approx 0.00112\%.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Figura 15: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Figura 16: Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Figura 17: Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Figura 18: Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Figura 19: Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
[[Archivo:Horizontalllll.jpg|500px|miniaturadeimagen|derecha|Figura 20: Representación horizontal de la divergencia hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Verticaaaal.jpg|500px|miniaturadeimagen|derecha|Figura 21:Representación vertical con x=0 de la divergencia hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear; clc; close all;&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos y geométricos&lt;br /&gt;
v0 = 0.5; &lt;br /&gt;
v1 = 0.1; &lt;br /&gt;
R  = 30; &lt;br /&gt;
phi = pi/6; &lt;br /&gt;
Hagua = 125;&lt;br /&gt;
&lt;br /&gt;
H  = 134; &lt;br /&gt;
rho0 = 150;&lt;br /&gt;
b = 40;&lt;br /&gt;
&lt;br /&gt;
% Radio de la presa a la altura del agua&lt;br /&gt;
rho_lim = rho0 + b*(1 - (Hagua^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
%   PLANO HORIZONTAL (z = Hagua)&lt;br /&gt;
&lt;br /&gt;
nx = 25;  &lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x = linspace(-50, 50, nx);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[X, Y] = meshgrid(x, y);&lt;br /&gt;
Z = Hagua * ones(size(X));&lt;br /&gt;
&lt;br /&gt;
% Campo en z = constante&lt;br /&gt;
dist2 = X.^2 + Y.^2;  &lt;br /&gt;
exp_term = exp(-dist2 / R^2);&lt;br /&gt;
&lt;br /&gt;
Vx = v0 * cos(phi) * exp_term;&lt;br /&gt;
Vy = v0 * sin(phi) * exp_term;&lt;br /&gt;
Vz = v1 * exp_term .* sin(pi * Z / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales&lt;br /&gt;
dx = x(2) - x(1);&lt;br /&gt;
dy = y(2) - y(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dx, dVx_dy] = gradient(Vx, dx, dy);&lt;br /&gt;
[dVy_dx, dVy_dy] = gradient(Vy, dx, dy);&lt;br /&gt;
[dVz_dx, dVz_dy] = gradient(Vz, dx, dy);&lt;br /&gt;
&lt;br /&gt;
% Rotacional en el plano horizontal&lt;br /&gt;
omega_x = dVz_dy;&lt;br /&gt;
omega_y = -dVz_dx;&lt;br /&gt;
omega_z = dVy_dx - dVx_dy;&lt;br /&gt;
&lt;br /&gt;
omega_mag = sqrt(omega_x.^2 + omega_y.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(X, Y, omega_mag); &lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
quiver(X, Y, omega_x, omega_y, 1.8,'k'); &lt;br /&gt;
title('Rotacional en el plano horizontal (z = H_{agua})');&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%   PLANO VERTICAL (x = 0)&lt;br /&gt;
&lt;br /&gt;
nz = 25;&lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x0 = 0;        &lt;br /&gt;
&lt;br /&gt;
z = linspace(0, Hagua, nz);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[Yv, Zv] = meshgrid(y, z);&lt;br /&gt;
Xv = x0 * ones(size(Yv));&lt;br /&gt;
&lt;br /&gt;
% Campo de velocidades en el plano vertical&lt;br /&gt;
dist2v = Xv.^2 + Yv.^2;&lt;br /&gt;
exp_term_v = exp(-dist2v / R^2);&lt;br /&gt;
&lt;br /&gt;
Vxv = v0 * cos(phi) * exp_term_v;&lt;br /&gt;
Vyv = v0 * sin(phi) * exp_term_v;&lt;br /&gt;
Vzv = v1 * exp_term_v .* sin(pi * Zv / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales en el plano vertical (∂/∂y y ∂/∂z)&lt;br /&gt;
dyv = y(2) - y(1);&lt;br /&gt;
dzv = z(2) - z(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dy_v, dVx_dz_v] = gradient(Vxv, dyv, dzv);&lt;br /&gt;
[dVy_dy_v, dVy_dz_v] = gradient(Vyv, dyv, dzv);&lt;br /&gt;
[dVz_dy_v, dVz_dz_v] = gradient(Vzv, dyv, dzv);&lt;br /&gt;
&lt;br /&gt;
% Rotacional completo:&lt;br /&gt;
&lt;br /&gt;
omega_x_v = dVz_dy_v - dVy_dz_v;&lt;br /&gt;
omega_y_v = dVx_dz_v;          &lt;br /&gt;
omega_z_v = - dVx_dy_v;         &lt;br /&gt;
&lt;br /&gt;
omega_mag_v = sqrt(omega_x_v.^2 + omega_z_v.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(Yv, Zv, omega_mag_v);&lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Campo de rotacional proyectado (y,z)&lt;br /&gt;
quiver(Yv, Zv, omega_z_v, omega_x_v, 1.5, 'k');&lt;br /&gt;
&lt;br /&gt;
title('Rotacional en el plano vertical (x = 0)');&lt;br /&gt;
xlabel('y (m)'); &lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
El '''caudal''' nos dice cuánta agua o líquido está fluyendo y qué tan rápido lo hace. Conocer el caudal del río es fundamental para una presa porque permite: asegurar la estructura, dimensionar correctamente la presa y sus compuertas, gestionar el agua para riego o energía, y prever riesgos como inundaciones o sequías.&lt;br /&gt;
&lt;br /&gt;
Sabemos que nuestro campo de velocidad de entrada es el siguiente:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pues tenemos como condición que &amp;lt;math&amp;gt;v_{1}=0&amp;lt;/math&amp;gt;, es decir, que no tenga componente vertical.&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El caudal se define con la siguiente fórmula: &amp;lt;math&amp;gt;Q=v S&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; la velocidad y &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; la sección transversal.&amp;lt;br /&amp;gt;&lt;br /&gt;
Sin embargo, al no tener una sección fácil de calcular (rectángulo, circunferencia, triángulo...), usaremos la siguiente: &amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v\cdot ndS&amp;lt;/math&amp;gt;.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabemos que el caudal entra en dirección &amp;lt;math&amp;gt;\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;, entonces, un vector normal de la sección transversal. (&amp;lt;math&amp;gt;\vec n = \left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;).&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculemos el producto &amp;lt;math&amp;gt;v\cdot n&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;\cdot\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos\varphi cos\varphi +sin\varphi sin\varphi \right )=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos^2\varphi+sin^2\varphi\right )=v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tenemos información sobre el radio, vamos a pasarlo a coordenadas cilíndricas para simplificar la integral:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}dxdy\Rightarrow \begin{Bmatrix}&lt;br /&gt;
x=\rho cos\theta   \\&lt;br /&gt;
y=\rho sin\theta   \\&lt;br /&gt;
dxdy\xrightarrow[]{\left | J\right |}\rho d\rho d\theta  \\&lt;br /&gt;
x^2+y^2=\rho ^2 \\&lt;br /&gt;
0\leq \rho \leq 100\\&lt;br /&gt;
0\leq \theta &amp;lt; 2\pi\\&lt;br /&gt;
\end{Bmatrix}\Rightarrow \int_{0}^{2\pi}\int_{0}^{100}v_{0}\rho e^{-\frac{\rho ^2}{R^{2}}}d\rho d\theta &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora resolvemos la integral, para ello haremos un cambio de variable:&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;2\pi v_{0}\int_{0}^{100}e^{-\frac{\rho ^2}{R^{2}}}\rho d\rho\Rightarrow \left\{ u=\frac{\rho ^2}{R^2}\Rightarrow du=\frac{2\rho}{R^2}d \rho \Rightarrow \rho d \rho =\frac{R^2}{2}du\right\}\Rightarrow 2\pi v_{0}\frac{R ^2}{2}\int_{0}^{u=\frac{100^2}{R^2}}e^{-u}du = \pi v_{0}R^2\left [ -e^{-u} \right ]_{0}^{\frac{100^2}{R^2}} = \pi v_{0}R^2(1-e^{-\frac{100^2}{R^2}})\approx 1413,5 m^3/s &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Póster =&lt;br /&gt;
&amp;lt;center&amp;gt;[[Archivo:La_presa_de_El_Atazar.jpg|800px|miniaturadeimagen|centro|Imagen póster]]&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=Bibliografía y webgrafía=&lt;br /&gt;
Todo el código y gráficas realizadas con MATLAB.&amp;lt;br /&amp;gt;&lt;br /&gt;
Hecho con la asistencia de ChatGPT.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Teoría de Campos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Física de Sólidos y Fluidos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Tipos de presas: &amp;lt;br /&amp;gt;&lt;br /&gt;
https://masqueingenieria.com/blog/tipos-de-presas-y-su-clasificacion/ &amp;lt;br /&amp;gt;&lt;br /&gt;
https://webaero.net/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.iagua.es/data/infraestructuras/presas/almendra&amp;lt;br /&amp;gt;&lt;br /&gt;
https://aldeadavila.es/presa-de-iberdrola/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://es.linkedin.com/pulse/la-presa-de-el-atazar-fundaci%C3%B3n-canal&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.cronicanorte.es/cifras-curiosidades-del-embalse-del-atazar-canal-isabel-ii/98414&amp;lt;br /&amp;gt;&lt;br /&gt;
Póster hecho con canva&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102456</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102456"/>
				<updated>2025-12-06T18:13:31Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lancho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
[https://upm365-my.sharepoint.com/:b:/g/personal/marina_lancho_mora_alumnos_upm_es/EZzw9rHffLZPoUThILLU7I4BKid0zz-qXkIcpukB3kG5UA?e=dASjgj Haz clic para descargar el poster]&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
[[Archivo:Presa_de_el_atazar_02.jpg|400px|miniaturadeimagen|derecha|Figura 1: La presa de El Atazar vista desde arriba]]&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Figura 2: Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
La presa responde a un campo de presiones modelizado por la función:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g×Q_{w}(H_{w}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{w}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde:&lt;br /&gt;
* P(z) = presión a la altura z&lt;br /&gt;
* P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; = presión atmosférica&lt;br /&gt;
* Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = densidad del agua, 1000kg/m&amp;lt;sup&amp;gt;3&amp;lt;/sup&amp;gt;&lt;br /&gt;
* g = gravedad, 9,81g/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&lt;br /&gt;
* H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = altura a la que se encuentra llena la presa, 125m&lt;br /&gt;
* z = altura&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 3: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Observando la Figura 3, vemos que la presión es lineal, aumentando conforme vamos perdiendo altura. Esto sigue la lógica de la fórmula fundamental de la estática de fluidos.&lt;br /&gt;
&lt;br /&gt;
= Tensiones =&lt;br /&gt;
En este apartado se determinará la fuerza total debida a la presión hidrostática que actúa sobre la cara aguas arriba de la presa, así como la presión media (o tensión superficial equivalente) para los dos modelos geométricos analizados:&lt;br /&gt;
* '''Presa doble curvatura''': &amp;lt;math&amp;gt;b=40m&amp;lt;/math&amp;gt;&lt;br /&gt;
* '''Presa de curvatura simple (cilíndrica)''': &amp;lt;math&amp;gt;b=0m&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El objetivo es comparar ambos modelos y analizar cuál presenta una mejor resistencia frente a la presión ejercida por el agua.&lt;br /&gt;
&lt;br /&gt;
Para determinar cómo actúa la presión hidrostática sobre la presa, se parte de su distribución en función de la profundidad. El agua transmite presión en todas direcciones y ésta depende únicamente de la profundidad. Así, en cualquier punto de la superficie de la presa, la presión viene dada por:&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(z)=\rho g(H-z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
Quitamos &amp;lt;math&amp;gt;p_{0}&amp;lt;/math&amp;gt; ya que, para no ir arrastrando la presión atmosférica, tomamos manométricas.&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; es la densidad del agua, &amp;lt;math&amp;gt;g&amp;lt;/math&amp;gt; es la aceleración de la gravedad, &amp;lt;math&amp;gt;H&amp;lt;/math&amp;gt; es la altura máxima de la lámina de agua y &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; es la distancia medida desde la base de la presa.&lt;br /&gt;
&lt;br /&gt;
Para calcular la fuerza, utilizaremos la siguiente fórmula: &amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como mencionamos en la introducción, la forma del paramento aguas arriba se define como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
&lt;br /&gt;
Y además sabemos que nuestro vector de posición es:  &amp;lt;math&amp;gt;\vec{r}(\theta ,z)=(\rho cos\theta, \rho sin\theta, z)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El área: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;dA=\left | \frac{\partial \vec{r}}{\partial \theta }\times \frac{\partial \vec{r}}{\partial z}\right|d\theta dz\Rightarrow dA=\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}d\theta dz\Rightarrow dA=\left(\rho_{0} + b - \frac{bz^2}{h^2}) \right)\sqrt{1+\left ( \frac{2bz}{H^2} \right )^2}d\theta dz&amp;lt;/math&amp;gt;.&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ya con esto, podemos resolver:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA = \left ( \frac{2\pi}{3} \right )\int_{0}^{H_{agua}}P(z)\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}dz&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cada elemento diferencial de fuerza actúa perpendicularmente a la superficie:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d\overrightarrow{F} = p(z) \, dA \, \overrightarrow{n} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
y la fuerza total se obtiene integrando sobre toda la superficie de la presa:&lt;br /&gt;
&amp;lt;math&amp;gt; \quad F = \int_{\theta_1}^{\theta_2} \int_0^H p(z) \, \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
Evaluando numéricamente con los parámetros del enunciado:&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt; (doble curvatura): &amp;lt;math&amp;gt;F = 3,027 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt; (curvatura simple): &amp;lt;math&amp;gt;F = 2,407 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, para conocer la tensión promedio que soporta la presa, calculamos: &amp;lt;math&amp;gt; \sigma = \frac{F}{A} &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;A&amp;lt;/math&amp;gt; es el área de la superficie:&lt;br /&gt;
&amp;lt;math&amp;gt; A = \int_{\theta_1}^{\theta_2} \int_0^H \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Resultados numéricos son:&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 4,89\times10^4~\text{m²}\;\Longrightarrow\;\sigma = 0,613~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 3,92\times10^4~\text{m²}\;\Longrightarrow\; \sigma = 0,619~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
En resumen, aunque la presa con doble curvatura recibe una fuerza global más alta, la tensión promedio que soporta es menor. Esto significa que los esfuerzos se reparten de manera más equilibrada sobre toda la superficie, haciendo que la estructura responda mejor frente al empuje del agua. Por ello, la configuración de doble curvatura es la que ofrece un comportamiento más seguro, ya que evita acumulaciones de tensión y disminuye la probabilidad de fallos en el material.&lt;br /&gt;
&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
[[Archivo:Esquema-tipos-de-presas.png|700px|miniaturadeimagen|centro|Figura 4: Tipos de presas]]&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Las presas pueden clasificarse de diversas maneras según la forma en que resisten el empuje del agua y los materiales empleados en su construcción. Cada tipología presenta ventajas e inconvenientes que condicionan su idoneidad para un emplazamiento concreto. En líneas generales, podemos clasificarlas en dos grupos: '''presas de fábrica''' (de hormigón) y '''presas de materiales sueltos''', siendo estas últimas las más comunes por su versatilidad.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
====Presas de fábrica====&lt;br /&gt;
Se tratan de presas relativamente esbeltas, construidas con hormigón. Este tipo de presas podemos subclasificarlas a su vez en tres grandes grupos:&lt;br /&gt;
===== Presas de gravedad=====&lt;br /&gt;
[[Archivo:Presas-de-gravedad.gif|300px|miniaturadeimagen|derecha|Figura 5: Presas de gravedad]]&lt;br /&gt;
&lt;br /&gt;
Las presas de gravedad se caracterizan por tener un cuerpo macizo —generalmente de hormigón— cuyo propio peso es el que resiste la presión del agua, evitando el deslizamiento. Su estabilidad depende en gran medida de la solidez y homogeneidad del terreno de cimentación, por lo que suelen construirse sobre macizos rocosos firmes.&lt;br /&gt;
Para impedir el vuelco, la resultante de los empujes (peso propio + presión del agua) debe quedar siempre dentro de la base de la presa. Estas estructuras se ejecutan casi por completo con hormigón en masa, utilizando armaduras solo en zonas puntuales que puedan estar sometidas a tracción, como las galerías interiores.&lt;br /&gt;
Como trabajan principalmente a compresión, es esencial controlar las tensiones de tracción, especialmente en el pie de aguas arriba, uno de los puntos más críticos desde el punto de vista estructural.&lt;br /&gt;
Su principal ventaja es la robustez y sencillez estructural, ya que no dependen de la forma del valle ni de transmitir cargas a los estribos. &lt;br /&gt;
Sin embargo, necesitan un gran volumen de materiales, lo que eleva los costes y las hace menos eficientes en términos económicos y ambientales. Son adecuadas cuando el valle es ancho y existe buena calidad del terreno en el fondo.&lt;br /&gt;
&lt;br /&gt;
===== Presas de arco o bóveda=====&lt;br /&gt;
[[Archivo:Presa-arco.gif|300px|miniaturadeimagen|derecha|Figura 6: Presas de arco o bóveda]]&lt;br /&gt;
Por otro lado, las presas de arco o bóveda aprovechan la curvatura de su estructura para transmitir la mayor parte del empuje del agua hacia los estribos del valle. Gracias a este comportamiento, es posible reducir significativamente la cantidad de hormigón, lo que las convierte en soluciones especialmente eficientes.&lt;br /&gt;
El arco actúa como antifunicular de la carga radial uniformemente repartida; es decir, trabaja esencialmente a esfuerzos axiles de compresión, sin tracciones relevantes. Estos esfuerzos se transmiten directamente a los estribos, que deben ser rocas muy resistentes capaces de soportar las elevadas cargas concentradas.&lt;br /&gt;
Para que este tipo de presa sea viable, es fundamental que el valle sea estrecho o en forma de garganta, y que los laterales presenten una alta calidad geológica. Aunque su diseño estructural es más complejo y exige un análisis geotécnico más riguroso, las presas de arco permiten alcanzar grandes alturas con secciones delgadas y un uso mucho más eficiente de materiales.&lt;br /&gt;
La sección de este tipo de presas puede ser:&lt;br /&gt;
*  '''Presa arco ''': sección trapezoidal de planta curva.&lt;br /&gt;
*  '''De doble curvatura ''': sección curva de planta curva. También se conocen como presas en bóveda.&lt;br /&gt;
*  '''Arco-gravedad ''': combinan la curvatura de una presa de arco con parte del peso propio de una presa de gravedad. Esto les permite adaptarse a valles que no son tan estrechos como los necesarios para una presa de arco pura, pero que tampoco justifican un muro macizo típico de gravedad. Su diseño permite ahorrar materiales respecto a una presa de gravedad, aunque exige buen apoyo lateral y estudios geológicos rigurosos. Son un compromiso que aprovecha parcialmente las ventajas de ambos sistemas.&lt;br /&gt;
&lt;br /&gt;
===== Presas de contrafuertes=====&lt;br /&gt;
[[Archivo:Esquema-presas-aligeradas-600x249.png|300px|miniaturadeimagen|derecha|Figura 7: Presas de contrafuertes]]&lt;br /&gt;
También existen las presas de contrafuertes. Este tipo de presa presenta un mecanismo resistente similar al de las presas de gravedad, aunque con un diseño más ligero. La parte principal o cabeza de la presa se encuentra inclinada y apoyada sobre una serie de contrafuertes —elementos longitudinales o “colas”— situados aguas abajo, que transmiten los esfuerzos al terreno a lo largo de toda la estructura.&lt;br /&gt;
&lt;br /&gt;
A diferencia de las presas de gravedad, estas estructuras prácticamente no requieren supresión, y junto con la contribución del peso de la cuña de agua sobre la cabeza, permiten reducir notablemente la masa de hormigón empleada. En cuanto a proporciones, el ancho de la base suele ser del orden de la altura de la presa, lo que las hace esbeltas en comparación con las de gravedad maciza.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, su forma más compleja exige mayor cantidad de mano de obra y precisión constructiva, lo que incrementa los costes pese al menor volumen de material. Por este motivo, y dado que existen alternativas más eficientes, hoy en día apenas se construyen presas de contrafuertes..&lt;br /&gt;
&lt;br /&gt;
====Presas de materiales sueltos====&lt;br /&gt;
[[Archivo:Presa-materiales-sueltos.gif|300px|miniaturadeimagen|derecha|Figura 8: Presas de materiales sueltos]]&lt;br /&gt;
Las presas de materiales sueltos son estructuras muy versátiles que pueden construirse prácticamente con cualquier tipo de material disponible en la zona —gravas, arenas, arcillas o materiales seleccionados—, lo que explica que sean las presas más abundantes del mundo. Presentan una sección trapezoidal y son mucho menos esbeltas que las presas de fábrica (hormigón), debido a que necesitan taludes amplios para garantizar su estabilidad.Su característica más distintiva es la zonificación, es decir, la colocación deliberada de cada tipo de material en la zona donde mejor cumple su función: un núcleo impermeable que minimiza filtraciones, espaldones de materiales más permeables que aportan estabilidad y filtros o drenes que controlan el flujo de agua. Esta organización interna permite optimizar recursos locales y adaptar la presa a condiciones geotécnicas muy diversas..&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Ejemplos en España ===&lt;br /&gt;
[[Archivo:Presaalmendra.jpg|250px|miniaturadeimagen|derecha|Figura 9: Presa de Almendra]]&lt;br /&gt;
En España existen varios ejemplos destacados que ilustran la aplicación de estas tipologías:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
La '''Presa de Almendra''', situada sobre el río Tormes, es una de las más altas de España y se clasifica como '''presa de bóveda o doble curvatura'''. Su ubicación, en un valle profundo con paredes rocosas muy estables, es ideal para este tipo de presa, ya que permite transmitir el empuje hacia los estribos y reducir considerablemente el volumen de hormigón. Esta tipología resulta especialmente adecuada para grandes alturas y para ubicar centrales hidroeléctricas de alta potencia aprovechando saltos muy profundos.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presa-de-ricobayo.jpeg|200px|miniaturadeimagen|derecha|Figura 10: Presa de Ricobayo]]&lt;br /&gt;
La Presa de Ricobayo, ubicada en el río Esla, es un ejemplo clásico de presa de gravedad. En este tramo el valle es más ancho y cuenta con cimientos graníticos muy estables, adecuados para soportar el peso de un muro masivo. Su diseño resulta más sencillo y robusto que el de una presa de arco, aunque su construcción implica emplear un volumen de hormigón considerablemente mayor.&lt;br /&gt;
Este tipo de solución es óptima cuando las condiciones geológicas del fondo del valle son favorables, pero los estribos laterales no presentan la resistencia necesaria como para transmitir grandes cargas, lo que descarta la tipología de arco.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeiberdrola.jpg|200px|miniaturadeimagen|derecha|Figura 11: Presa de Aldeadávila]]&lt;br /&gt;
La Presa de Aldeadávila, situada en el río Duero, es una de las obras hidráulicas más relevantes de España y se clasifica como presa de arco-gravedad. Su emplazamiento en los Arribes del Duero, un desfiladero estrecho y profundamente encajado en roca, hace que la tipología de arco resulte adecuada; sin embargo, la geometría del valle y las altas exigencias de estabilidad llevaron a optar por una solución mixta.&lt;br /&gt;
En este diseño, una parte del empuje del agua se transmite por curvatura a los estribos, mientras que otra parte se resiste mediante el peso propio del muro, combinando así la eficiencia estructural del arco con la robustez de una presa de gravedad. Gracias a ello, Aldeadávila logra un excelente comportamiento frente a solicitaciones muy elevadas y permite alojar uno de los complejos hidroeléctricos más potentes del país.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeatazar.png|250px|miniaturadeimagen|derecha|Figura 12: Presa de El Atazar]]&lt;br /&gt;
Otro ejemplo es mismamente la presa sobre la que va este trabajo, la '''Presa de El Atazar'''. Es una de las presas más singulares de España y también corresponde a una tipología de '''arco-gravedad'''. Su diseño curvado y su considerable altura aprovechan la estrechez del valle y la calidad de la roca de los estribos, al mismo tiempo que la masa central de la presa contribuye a resistir el empuje del agua. Esta combinación permitió optimizar el gasto de material y obtener una estructura muy estable. Su forma y funcionamiento demuestran cómo en algunos valles de anchura intermedia resulta más adecuado emplear un diseño mixto que uno puramente de arco o puramente de gravedad.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En conjunto, la elección del tipo de presa depende principalmente de la forma del valle, la resistencia de los materiales geológicos, la altura deseada y los recursos económicos disponibles. &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''En resumen'''&lt;br /&gt;
* Las presas de gravedad aportan gran estabilidad pero requieren mucho material.&lt;br /&gt;
* Las de arco y bóveda son más eficientes, pero dependen de un terreno lateral muy resistente.&lt;br /&gt;
* Las de arco-gravedad son una solución intermedia que proporciona flexibilidad.&lt;br /&gt;
* Las de contrafuertes permiten ahorrar material a costa de mayor complejidad constructiva. &lt;br /&gt;
* Las de materiales sueltos son muy versátiles, depende del material que utilicen.&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Figura 13: Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Figura 14: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Polares:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Resolvemos la integral: &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S( r)\,  r \, d r \, d\theta = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S_0 \left( 1 + \alpha e^{- r^2/L^2} \right)  r \, d r \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Separando términos:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = S_0 \theta \int_0^R r\,dr&lt;br /&gt;
  + S_0 \alpha \theta \int_0^R r e^{-r^2/L^2}\,dr \qquad        \text{donde  } \theta =\theta _{1}-\theta _{0}  &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las integrales son&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\int_0^R r\,dr = \frac{R^2}{2}, \qquad&lt;br /&gt;
\int_0^R r e^{-r^2/L^2}\,dr&lt;br /&gt;
  = \frac{L^2}{2}\left(1-e^{-R^2/L^2}\right).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por tanto,&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M = \frac{S_0 \theta}{2}&lt;br /&gt;
    \left[&lt;br /&gt;
      R^2 + \alpha L^2 \left(1-e^{-R^2/L^2}\right)&lt;br /&gt;
    \right].&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Finalmente, el volumen de sedimentos es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V = \frac{M}{\rho_s}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Usamos la expresión obtenida:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{S_0\theta}{2}\left[R^2+\alpha L^2\left(1-e^{-R^2/L^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores:&lt;br /&gt;
\(S_0=50\), \(\alpha=3\), \(L=500\), \(R=190\), \(\theta=2\pi/3\).&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[190^2+3\cdot 500^2\left(1-e^{-190^2/500^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos cada término:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
190^2=36100,\qquad 500^2=250000,\qquad \frac{190^2}{500^2}=0.1444&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
e^{-0.1444}\approx 0.8652,\qquad 1-0.8652=0.1348&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+3\cdot 250000\cdot 0.1348\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
3\cdot 250000\cdot 0.1348=101100&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Así:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+101100\right]&lt;br /&gt;
=\frac{50\cdot (2\pi/3)}{2}\cdot 137200&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{50\cdot (2\pi/3)}{2}=\frac{50\pi}{3}\approx 52.3599&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M\approx 52.3599\cdot 137200\approx 7.17\times 10^6\;\text{kg}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El volumen de sedimentos es:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V=\frac{M}{\rho_s}=\frac{7.17\times 10^6}{1500}\approx 4.78\times 10^3\;\text{m}^3&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
y representa una fracción de la capacidad:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{4.78\times 10^3}{4.25\times 10^8}\times 100\approx 0.00112\%.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Figura 15: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Figura 16: Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Figura 17: Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Figura 18: Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Figura 19: Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
[[Archivo:Horizontalllll.jpg|500px|miniaturadeimagen|derecha|Figura 20: Representación horizontal de la divergencia hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Verticaaaal.jpg|500px|miniaturadeimagen|derecha|Figura 21:Representación vertical con x=0 de la divergencia hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear; clc; close all;&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos y geométricos&lt;br /&gt;
v0 = 0.5; &lt;br /&gt;
v1 = 0.1; &lt;br /&gt;
R  = 30; &lt;br /&gt;
phi = pi/6; &lt;br /&gt;
Hagua = 125;&lt;br /&gt;
&lt;br /&gt;
H  = 134; &lt;br /&gt;
rho0 = 150;&lt;br /&gt;
b = 40;&lt;br /&gt;
&lt;br /&gt;
% Radio de la presa a la altura del agua&lt;br /&gt;
rho_lim = rho0 + b*(1 - (Hagua^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
%   PLANO HORIZONTAL (z = Hagua)&lt;br /&gt;
&lt;br /&gt;
nx = 25;  &lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x = linspace(-50, 50, nx);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[X, Y] = meshgrid(x, y);&lt;br /&gt;
Z = Hagua * ones(size(X));&lt;br /&gt;
&lt;br /&gt;
% Campo en z = constante&lt;br /&gt;
dist2 = X.^2 + Y.^2;  &lt;br /&gt;
exp_term = exp(-dist2 / R^2);&lt;br /&gt;
&lt;br /&gt;
Vx = v0 * cos(phi) * exp_term;&lt;br /&gt;
Vy = v0 * sin(phi) * exp_term;&lt;br /&gt;
Vz = v1 * exp_term .* sin(pi * Z / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales&lt;br /&gt;
dx = x(2) - x(1);&lt;br /&gt;
dy = y(2) - y(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dx, dVx_dy] = gradient(Vx, dx, dy);&lt;br /&gt;
[dVy_dx, dVy_dy] = gradient(Vy, dx, dy);&lt;br /&gt;
[dVz_dx, dVz_dy] = gradient(Vz, dx, dy);&lt;br /&gt;
&lt;br /&gt;
% Rotacional en el plano horizontal&lt;br /&gt;
omega_x = dVz_dy;&lt;br /&gt;
omega_y = -dVz_dx;&lt;br /&gt;
omega_z = dVy_dx - dVx_dy;&lt;br /&gt;
&lt;br /&gt;
omega_mag = sqrt(omega_x.^2 + omega_y.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(X, Y, omega_mag); &lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
quiver(X, Y, omega_x, omega_y, 1.8,'k'); &lt;br /&gt;
title('Rotacional en el plano horizontal (z = H_{agua})');&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%   PLANO VERTICAL (x = 0)&lt;br /&gt;
&lt;br /&gt;
nz = 25;&lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x0 = 0;        &lt;br /&gt;
&lt;br /&gt;
z = linspace(0, Hagua, nz);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[Yv, Zv] = meshgrid(y, z);&lt;br /&gt;
Xv = x0 * ones(size(Yv));&lt;br /&gt;
&lt;br /&gt;
% Campo de velocidades en el plano vertical&lt;br /&gt;
dist2v = Xv.^2 + Yv.^2;&lt;br /&gt;
exp_term_v = exp(-dist2v / R^2);&lt;br /&gt;
&lt;br /&gt;
Vxv = v0 * cos(phi) * exp_term_v;&lt;br /&gt;
Vyv = v0 * sin(phi) * exp_term_v;&lt;br /&gt;
Vzv = v1 * exp_term_v .* sin(pi * Zv / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales en el plano vertical (∂/∂y y ∂/∂z)&lt;br /&gt;
dyv = y(2) - y(1);&lt;br /&gt;
dzv = z(2) - z(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dy_v, dVx_dz_v] = gradient(Vxv, dyv, dzv);&lt;br /&gt;
[dVy_dy_v, dVy_dz_v] = gradient(Vyv, dyv, dzv);&lt;br /&gt;
[dVz_dy_v, dVz_dz_v] = gradient(Vzv, dyv, dzv);&lt;br /&gt;
&lt;br /&gt;
% Rotacional completo:&lt;br /&gt;
&lt;br /&gt;
omega_x_v = dVz_dy_v - dVy_dz_v;&lt;br /&gt;
omega_y_v = dVx_dz_v;          &lt;br /&gt;
omega_z_v = - dVx_dy_v;         &lt;br /&gt;
&lt;br /&gt;
omega_mag_v = sqrt(omega_x_v.^2 + omega_z_v.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(Yv, Zv, omega_mag_v);&lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Campo de rotacional proyectado (y,z)&lt;br /&gt;
quiver(Yv, Zv, omega_z_v, omega_x_v, 1.5, 'k');&lt;br /&gt;
&lt;br /&gt;
title('Rotacional en el plano vertical (x = 0)');&lt;br /&gt;
xlabel('y (m)'); &lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
El '''caudal''' nos dice cuánta agua o líquido está fluyendo y qué tan rápido lo hace. Conocer el caudal del río es fundamental para una presa porque permite: asegurar la estructura, dimensionar correctamente la presa y sus compuertas, gestionar el agua para riego o energía, y prever riesgos como inundaciones o sequías.&lt;br /&gt;
&lt;br /&gt;
Sabemos que nuestro campo de velocidad de entrada es el siguiente:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pues tenemos como condición que &amp;lt;math&amp;gt;v_{1}=0&amp;lt;/math&amp;gt;, es decir, que no tenga componente vertical.&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El caudal se define con la siguiente fórmula: &amp;lt;math&amp;gt;Q=v S&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; la velocidad y &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; la sección transversal.&amp;lt;br /&amp;gt;&lt;br /&gt;
Sin embargo, al no tener una sección fácil de calcular (rectángulo, circunferencia, triángulo...), usaremos la siguiente: &amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v\cdot ndS&amp;lt;/math&amp;gt;.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabemos que el caudal entra en dirección &amp;lt;math&amp;gt;\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;, entonces, un vector normal de la sección transversal. (&amp;lt;math&amp;gt;\vec n = \left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;).&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculemos el producto &amp;lt;math&amp;gt;v\cdot n&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;\cdot\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos\varphi cos\varphi +sin\varphi sin\varphi \right )=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos^2\varphi+sin^2\varphi\right )=v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tenemos información sobre el radio, vamos a pasarlo a coordenadas cilíndricas para simplificar la integral:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}dxdy\Rightarrow \begin{Bmatrix}&lt;br /&gt;
x=\rho cos\theta   \\&lt;br /&gt;
y=\rho sin\theta   \\&lt;br /&gt;
dxdy\xrightarrow[]{\left | J\right |}\rho d\rho d\theta  \\&lt;br /&gt;
x^2+y^2=\rho ^2 \\&lt;br /&gt;
0\leq \rho \leq 100\\&lt;br /&gt;
0\leq \theta &amp;lt; 2\pi\\&lt;br /&gt;
\end{Bmatrix}\Rightarrow \int_{0}^{2\pi}\int_{0}^{100}v_{0}\rho e^{-\frac{\rho ^2}{R^{2}}}d\rho d\theta &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora resolvemos la integral, para ello haremos un cambio de variable:&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;2\pi v_{0}\int_{0}^{100}e^{-\frac{\rho ^2}{R^{2}}}\rho d\rho\Rightarrow \left\{ u=\frac{\rho ^2}{R^2}\Rightarrow du=\frac{2\rho}{R^2}d \rho \Rightarrow \rho d \rho =\frac{R^2}{2}du\right\}\Rightarrow 2\pi v_{0}\frac{R ^2}{2}\int_{0}^{u=\frac{100^2}{R^2}}e^{-u}du = \pi v_{0}R^2\left [ -e^{-u} \right ]_{0}^{\frac{100^2}{R^2}} = \pi v_{0}R^2(1-e^{-\frac{100^2}{R^2}})\approx 1413,5 m^3/s &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Póster =&lt;br /&gt;
&amp;lt;center&amp;gt;[[Archivo:La_presa_de_El_Atazar.jpg|800px|miniaturadeimagen|centro|Imagen póster]]&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=Bibliografía y webgrafía=&lt;br /&gt;
Todo el código y gráficas realizadas con MATLAB.&amp;lt;br /&amp;gt;&lt;br /&gt;
Hecho con la asistencia de ChatGPT.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Teoría de Campos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Física de Sólidos y Fluidos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Tipos de presas: &amp;lt;br /&amp;gt;&lt;br /&gt;
https://masqueingenieria.com/blog/tipos-de-presas-y-su-clasificacion/ &amp;lt;br /&amp;gt;&lt;br /&gt;
https://webaero.net/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.iagua.es/data/infraestructuras/presas/almendra&amp;lt;br /&amp;gt;&lt;br /&gt;
https://aldeadavila.es/presa-de-iberdrola/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://es.linkedin.com/pulse/la-presa-de-el-atazar-fundaci%C3%B3n-canal&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.cronicanorte.es/cifras-curiosidades-del-embalse-del-atazar-canal-isabel-ii/98414&amp;lt;br /&amp;gt;&lt;br /&gt;
Póster hecho con canva&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102084</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=102084"/>
				<updated>2025-12-06T16:01:44Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: /* Presiones sobre la presa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lacho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
[[Archivo:Presa_de_el_atazar_02.jpg|400px|miniaturadeimagen|derecha|Figura 1: La presa de El Atazar vista desde arriba]]&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Figura 2: Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
La presa responde a un campo de presiones modelizado por la función:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g×Q_{w}(H_{w}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{w}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde:&lt;br /&gt;
* P(z) = presión a la altura z&lt;br /&gt;
* P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; = presión atmosférica&lt;br /&gt;
* Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = densidad del agua, 1000kg/m&amp;lt;sup&amp;gt;3&amp;lt;/sup&amp;gt;&lt;br /&gt;
* g = gravedad, 9,81g/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&lt;br /&gt;
* H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = altura a la que se encuentra llena la presa, 125m&lt;br /&gt;
* z = altura&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 3: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Observando la Figura 3, vemos que la presión es lineal, aumentando conforme vamos perdiendo altura. Esto sigue la lógica de la fórmula fundamental de la estática de fluidos.&lt;br /&gt;
&lt;br /&gt;
= Tensiones =&lt;br /&gt;
En este apartado se determinará la fuerza total debida a la presión hidrostática que actúa sobre la cara aguas arriba de la presa, así como la presión media (o tensión superficial equivalente) para los dos modelos geométricos analizados:&lt;br /&gt;
* '''Presa doble curvatura''': &amp;lt;math&amp;gt;b=40m&amp;lt;/math&amp;gt;&lt;br /&gt;
* '''Presa de curvatura simple (cilíndrica)''': &amp;lt;math&amp;gt;b=0m&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El objetivo es comparar ambos modelos y analizar cuál presenta una mejor resistencia frente a la presión ejercida por el agua.&lt;br /&gt;
&lt;br /&gt;
Para determinar cómo actúa la presión hidrostática sobre la presa, se parte de su distribución en función de la profundidad. El agua transmite presión en todas direcciones y ésta depende únicamente de la profundidad. Así, en cualquier punto de la superficie de la presa, la presión viene dada por:&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p(z)=\rho g(H-z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
Quitamos &amp;lt;math&amp;gt;p_{0}&amp;lt;/math&amp;gt; ya que, para no ir arrastrando la presión atmosférica, tomamos manométricas.&lt;br /&gt;
&lt;br /&gt;
Donde &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; es la densidad del agua, &amp;lt;math&amp;gt;g&amp;lt;/math&amp;gt; es la aceleración de la gravedad, &amp;lt;math&amp;gt;H&amp;lt;/math&amp;gt; es la altura máxima de la lámina de agua y &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; es la distancia medida desde la base de la presa.&lt;br /&gt;
&lt;br /&gt;
Para calcular la fuerza, utilizaremos la siguiente fórmula: &amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como mencionamos en la introducción, la forma del paramento aguas arriba se define como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
&lt;br /&gt;
Y además sabemos que nuestro vector de posición es:  &amp;lt;math&amp;gt;\vec{r}(\theta ,z)=(\rho cos\theta, \rho sin\theta, z)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El área: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;dA=\left | \frac{\partial \vec{r}}{\partial \theta }\times \frac{\partial \vec{r}}{\partial z}\right|d\theta dz\Rightarrow dA=\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}d\theta dz\Rightarrow dA=\left(\rho_{0} + b - \frac{bz^2}{h^2}) \right)\sqrt{1+\left ( \frac{2bz}{H^2} \right )^2}d\theta dz&amp;lt;/math&amp;gt;.&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ya con esto, podemos resolver:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;F=\iint_{}^{}P(z)dA = \left ( \frac{2\pi}{3} \right )\int_{0}^{H_{agua}}P(z)\rho (z)\sqrt{1+\left ( \frac{d\rho}{dz} \right )^2}dz&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Cada elemento diferencial de fuerza actúa perpendicularmente a la superficie:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d\overrightarrow{F} = p(z) \, dA \, \overrightarrow{n} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
y la fuerza total se obtiene integrando sobre toda la superficie de la presa:&lt;br /&gt;
&amp;lt;math&amp;gt; \quad F = \int_{\theta_1}^{\theta_2} \int_0^H p(z) \, \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
Evaluando numéricamente con los parámetros del enunciado:&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt; (doble curvatura): &amp;lt;math&amp;gt;F = 3,027 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
*Para &amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt; (curvatura simple): &amp;lt;math&amp;gt;F = 2,407 \times 10^{10}~\text{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, para conocer la tensión promedio que soporta la presa, calculamos: &amp;lt;math&amp;gt; \sigma = \frac{F}{A} &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;A&amp;lt;/math&amp;gt; es el área de la superficie:&lt;br /&gt;
&amp;lt;math&amp;gt; A = \int_{\theta_1}^{\theta_2} \int_0^H \rho(z) \sqrt{1 + (\rho'(z))^2} \, dz \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br&amp;gt;&lt;br /&gt;
Resultados numéricos son:&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 40~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 4,89\times10^4~\text{m²}\;\Longrightarrow\;\sigma = 0,613~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;b = 0~\text{m}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;A = 3,92\times10^4~\text{m²}\;\Longrightarrow\; \sigma = 0,619~\text{MPa}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;br&amp;gt;&lt;br /&gt;
En resumen, aunque la presa con doble curvatura recibe una fuerza global más alta, la tensión promedio que soporta es menor. Esto significa que los esfuerzos se reparten de manera más equilibrada sobre toda la superficie, haciendo que la estructura responda mejor frente al empuje del agua. Por ello, la configuración de doble curvatura es la que ofrece un comportamiento más seguro, ya que evita acumulaciones de tensión y disminuye la probabilidad de fallos en el material.&lt;br /&gt;
&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
[[Archivo:Esquema-tipos-de-presas.png|700px|miniaturadeimagen|centro|Figura 4: Tipos de presas]]&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Las presas pueden clasificarse de diversas maneras según la forma en que resisten el empuje del agua y los materiales empleados en su construcción. Cada tipología presenta ventajas e inconvenientes que condicionan su idoneidad para un emplazamiento concreto. En líneas generales, podemos clasificarlas en dos grupos: '''presas de fábrica''' (de hormigón) y '''presas de materiales sueltos''', siendo estas últimas las más comunes por su versatilidad.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
====Presas de fábrica====&lt;br /&gt;
Se tratan de presas relativamente esbeltas, construidas con hormigón. Este tipo de presas podemos subclasificarlas a su vez en tres grandes grupos:&lt;br /&gt;
===== Presas de gravedad=====&lt;br /&gt;
[[Archivo:Presas-de-gravedad.gif|300px|miniaturadeimagen|derecha|Figura 5: Presas de gravedad]]&lt;br /&gt;
&lt;br /&gt;
Las presas de gravedad se caracterizan por tener un cuerpo macizo —generalmente de hormigón— cuyo propio peso es el que resiste la presión del agua, evitando el deslizamiento. Su estabilidad depende en gran medida de la solidez y homogeneidad del terreno de cimentación, por lo que suelen construirse sobre macizos rocosos firmes.&lt;br /&gt;
Para impedir el vuelco, la resultante de los empujes (peso propio + presión del agua) debe quedar siempre dentro de la base de la presa. Estas estructuras se ejecutan casi por completo con hormigón en masa, utilizando armaduras solo en zonas puntuales que puedan estar sometidas a tracción, como las galerías interiores.&lt;br /&gt;
Como trabajan principalmente a compresión, es esencial controlar las tensiones de tracción, especialmente en el pie de aguas arriba, uno de los puntos más críticos desde el punto de vista estructural.&lt;br /&gt;
Su principal ventaja es la robustez y sencillez estructural, ya que no dependen de la forma del valle ni de transmitir cargas a los estribos. &lt;br /&gt;
Sin embargo, necesitan un gran volumen de materiales, lo que eleva los costes y las hace menos eficientes en términos económicos y ambientales. Son adecuadas cuando el valle es ancho y existe buena calidad del terreno en el fondo.&lt;br /&gt;
&lt;br /&gt;
===== Presas de arco o bóveda=====&lt;br /&gt;
[[Archivo:Presa-arco.gif|300px|miniaturadeimagen|derecha|Figura 6: Presas de arco o bóveda]]&lt;br /&gt;
Por otro lado, las presas de arco o bóveda aprovechan la curvatura de su estructura para transmitir la mayor parte del empuje del agua hacia los estribos del valle. Gracias a este comportamiento, es posible reducir significativamente la cantidad de hormigón, lo que las convierte en soluciones especialmente eficientes.&lt;br /&gt;
El arco actúa como antifunicular de la carga radial uniformemente repartida; es decir, trabaja esencialmente a esfuerzos axiles de compresión, sin tracciones relevantes. Estos esfuerzos se transmiten directamente a los estribos, que deben ser rocas muy resistentes capaces de soportar las elevadas cargas concentradas.&lt;br /&gt;
Para que este tipo de presa sea viable, es fundamental que el valle sea estrecho o en forma de garganta, y que los laterales presenten una alta calidad geológica. Aunque su diseño estructural es más complejo y exige un análisis geotécnico más riguroso, las presas de arco permiten alcanzar grandes alturas con secciones delgadas y un uso mucho más eficiente de materiales.&lt;br /&gt;
La sección de este tipo de presas puede ser:&lt;br /&gt;
*  '''Presa arco ''': sección trapezoidal de planta curva.&lt;br /&gt;
*  '''De doble curvatura ''': sección curva de planta curva. También se conocen como presas en bóveda.&lt;br /&gt;
*  '''Arco-gravedad ''': combinan la curvatura de una presa de arco con parte del peso propio de una presa de gravedad. Esto les permite adaptarse a valles que no son tan estrechos como los necesarios para una presa de arco pura, pero que tampoco justifican un muro macizo típico de gravedad. Su diseño permite ahorrar materiales respecto a una presa de gravedad, aunque exige buen apoyo lateral y estudios geológicos rigurosos. Son un compromiso que aprovecha parcialmente las ventajas de ambos sistemas.&lt;br /&gt;
&lt;br /&gt;
===== Presas de contrafuertes=====&lt;br /&gt;
[[Archivo:Esquema-presas-aligeradas-600x249.png|300px|miniaturadeimagen|derecha|Figura 7: Presas de contrafuertes]]&lt;br /&gt;
También existen las presas de contrafuertes. Este tipo de presa presenta un mecanismo resistente similar al de las presas de gravedad, aunque con un diseño más ligero. La parte principal o cabeza de la presa se encuentra inclinada y apoyada sobre una serie de contrafuertes —elementos longitudinales o “colas”— situados aguas abajo, que transmiten los esfuerzos al terreno a lo largo de toda la estructura.&lt;br /&gt;
&lt;br /&gt;
A diferencia de las presas de gravedad, estas estructuras prácticamente no requieren supresión, y junto con la contribución del peso de la cuña de agua sobre la cabeza, permiten reducir notablemente la masa de hormigón empleada. En cuanto a proporciones, el ancho de la base suele ser del orden de la altura de la presa, lo que las hace esbeltas en comparación con las de gravedad maciza.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, su forma más compleja exige mayor cantidad de mano de obra y precisión constructiva, lo que incrementa los costes pese al menor volumen de material. Por este motivo, y dado que existen alternativas más eficientes, hoy en día apenas se construyen presas de contrafuertes..&lt;br /&gt;
&lt;br /&gt;
====Presas de materiales sueltos====&lt;br /&gt;
[[Archivo:Presa-materiales-sueltos.gif|300px|miniaturadeimagen|derecha|Figura 8: Presas de materiales sueltos]]&lt;br /&gt;
Las presas de materiales sueltos son estructuras muy versátiles que pueden construirse prácticamente con cualquier tipo de material disponible en la zona —gravas, arenas, arcillas o materiales seleccionados—, lo que explica que sean las presas más abundantes del mundo. Presentan una sección trapezoidal y son mucho menos esbeltas que las presas de fábrica (hormigón), debido a que necesitan taludes amplios para garantizar su estabilidad.Su característica más distintiva es la zonificación, es decir, la colocación deliberada de cada tipo de material en la zona donde mejor cumple su función: un núcleo impermeable que minimiza filtraciones, espaldones de materiales más permeables que aportan estabilidad y filtros o drenes que controlan el flujo de agua. Esta organización interna permite optimizar recursos locales y adaptar la presa a condiciones geotécnicas muy diversas..&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Ejemplos en España ===&lt;br /&gt;
[[Archivo:Presaalmendra.jpg|250px|miniaturadeimagen|derecha|Figura 9: Presa de Almendra]]&lt;br /&gt;
En España existen varios ejemplos destacados que ilustran la aplicación de estas tipologías:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
La '''Presa de Almendra''', situada sobre el río Tormes, es una de las más altas de España y se clasifica como '''presa de bóveda o doble curvatura'''. Su ubicación, en un valle profundo con paredes rocosas muy estables, es ideal para este tipo de presa, ya que permite transmitir el empuje hacia los estribos y reducir considerablemente el volumen de hormigón. Esta tipología resulta especialmente adecuada para grandes alturas y para ubicar centrales hidroeléctricas de alta potencia aprovechando saltos muy profundos.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presa-de-ricobayo.jpeg|200px|miniaturadeimagen|derecha|Figura 10: Presa de Ricobayo]]&lt;br /&gt;
La Presa de Ricobayo, ubicada en el río Esla, es un ejemplo clásico de presa de gravedad. En este tramo el valle es más ancho y cuenta con cimientos graníticos muy estables, adecuados para soportar el peso de un muro masivo. Su diseño resulta más sencillo y robusto que el de una presa de arco, aunque su construcción implica emplear un volumen de hormigón considerablemente mayor.&lt;br /&gt;
Este tipo de solución es óptima cuando las condiciones geológicas del fondo del valle son favorables, pero los estribos laterales no presentan la resistencia necesaria como para transmitir grandes cargas, lo que descarta la tipología de arco.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeiberdrola.jpg|200px|miniaturadeimagen|derecha|Figura 11: Presa de Aldeadávila]]&lt;br /&gt;
La Presa de Aldeadávila, situada en el río Duero, es una de las obras hidráulicas más relevantes de España y se clasifica como presa de arco-gravedad. Su emplazamiento en los Arribes del Duero, un desfiladero estrecho y profundamente encajado en roca, hace que la tipología de arco resulte adecuada; sin embargo, la geometría del valle y las altas exigencias de estabilidad llevaron a optar por una solución mixta.&lt;br /&gt;
En este diseño, una parte del empuje del agua se transmite por curvatura a los estribos, mientras que otra parte se resiste mediante el peso propio del muro, combinando así la eficiencia estructural del arco con la robustez de una presa de gravedad. Gracias a ello, Aldeadávila logra un excelente comportamiento frente a solicitaciones muy elevadas y permite alojar uno de los complejos hidroeléctricos más potentes del país.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presadeatazar.png|250px|miniaturadeimagen|derecha|Figura 12: Presa de El Atazar]]&lt;br /&gt;
Otro ejemplo es mismamente la presa sobre la que va este trabajo, la '''Presa de El Atazar'''. Es una de las presas más singulares de España y también corresponde a una tipología de '''arco-gravedad'''. Su diseño curvado y su considerable altura aprovechan la estrechez del valle y la calidad de la roca de los estribos, al mismo tiempo que la masa central de la presa contribuye a resistir el empuje del agua. Esta combinación permitió optimizar el gasto de material y obtener una estructura muy estable. Su forma y funcionamiento demuestran cómo en algunos valles de anchura intermedia resulta más adecuado emplear un diseño mixto que uno puramente de arco o puramente de gravedad.&amp;lt;br /&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En conjunto, la elección del tipo de presa depende principalmente de la forma del valle, la resistencia de los materiales geológicos, la altura deseada y los recursos económicos disponibles. &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''En resumen'''&lt;br /&gt;
* Las presas de gravedad aportan gran estabilidad pero requieren mucho material.&lt;br /&gt;
* Las de arco y bóveda son más eficientes, pero dependen de un terreno lateral muy resistente.&lt;br /&gt;
* Las de arco-gravedad son una solución intermedia que proporciona flexibilidad.&lt;br /&gt;
* Las de contrafuertes permiten ahorrar material a costa de mayor complejidad constructiva. &lt;br /&gt;
* Las de materiales sueltos son muy versátiles, depende del material que utilicen.&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Figura 13: Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Figura 14: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Polares:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Resolvemos la integral: &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S( r)\,  r \, d r \, d\theta = \int_{\theta_0}^{\theta_1} \int_0^{R_\text{base}} S_0 \left( 1 + \alpha e^{- r^2/L^2} \right)  r \, d r \, d\theta &amp;lt;/math&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Separando términos:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; M = S_0 \theta \int_0^R r\,dr&lt;br /&gt;
  + S_0 \alpha \theta \int_0^R r e^{-r^2/L^2}\,dr \qquad        \text{donde  } \theta =\theta _{1}-\theta _{0}  &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las integrales son&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\int_0^R r\,dr = \frac{R^2}{2}, \qquad&lt;br /&gt;
\int_0^R r e^{-r^2/L^2}\,dr&lt;br /&gt;
  = \frac{L^2}{2}\left(1-e^{-R^2/L^2}\right).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por tanto,&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M = \frac{S_0 \theta}{2}&lt;br /&gt;
    \left[&lt;br /&gt;
      R^2 + \alpha L^2 \left(1-e^{-R^2/L^2}\right)&lt;br /&gt;
    \right].&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Finalmente, el volumen de sedimentos es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V = \frac{M}{\rho_s}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Usamos la expresión obtenida:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{S_0\theta}{2}\left[R^2+\alpha L^2\left(1-e^{-R^2/L^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores:&lt;br /&gt;
\(S_0=50\), \(\alpha=3\), \(L=500\), \(R=190\), \(\theta=2\pi/3\).&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[190^2+3\cdot 500^2\left(1-e^{-190^2/500^2}\right)\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos cada término:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
190^2=36100,\qquad 500^2=250000,\qquad \frac{190^2}{500^2}=0.1444&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
e^{-0.1444}\approx 0.8652,\qquad 1-0.8652=0.1348&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+3\cdot 250000\cdot 0.1348\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
3\cdot 250000\cdot 0.1348=101100&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Así:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M=\frac{50\cdot (2\pi/3)}{2}\left[36100+101100\right]&lt;br /&gt;
=\frac{50\cdot (2\pi/3)}{2}\cdot 137200&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{50\cdot (2\pi/3)}{2}=\frac{50\pi}{3}\approx 52.3599&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
M\approx 52.3599\cdot 137200\approx 7.17\times 10^6\;\text{kg}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El volumen de sedimentos es:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
V=\frac{M}{\rho_s}=\frac{7.17\times 10^6}{1500}\approx 4.78\times 10^3\;\text{m}^3&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
y representa una fracción de la capacidad:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{4.78\times 10^3}{4.25\times 10^8}\times 100\approx 0.00112\%.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Figura 15: Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Figura 16: Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Figura 17: Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Figura 18: Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Figura 19: Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
[[Archivo:Horizontalllll.jpg|500px|miniaturadeimagen|derecha|Figura 20: Representación horizontal de la divergencia hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Verticaaaal.jpg|500px|miniaturadeimagen|derecha|Figura 21:Representación vertical con x=0 de la divergencia hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear; clc; close all;&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos y geométricos&lt;br /&gt;
v0 = 0.5; &lt;br /&gt;
v1 = 0.1; &lt;br /&gt;
R  = 30; &lt;br /&gt;
phi = pi/6; &lt;br /&gt;
Hagua = 125;&lt;br /&gt;
&lt;br /&gt;
H  = 134; &lt;br /&gt;
rho0 = 150;&lt;br /&gt;
b = 40;&lt;br /&gt;
&lt;br /&gt;
% Radio de la presa a la altura del agua&lt;br /&gt;
rho_lim = rho0 + b*(1 - (Hagua^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
%   PLANO HORIZONTAL (z = Hagua)&lt;br /&gt;
&lt;br /&gt;
nx = 25;  &lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x = linspace(-50, 50, nx);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[X, Y] = meshgrid(x, y);&lt;br /&gt;
Z = Hagua * ones(size(X));&lt;br /&gt;
&lt;br /&gt;
% Campo en z = constante&lt;br /&gt;
dist2 = X.^2 + Y.^2;  &lt;br /&gt;
exp_term = exp(-dist2 / R^2);&lt;br /&gt;
&lt;br /&gt;
Vx = v0 * cos(phi) * exp_term;&lt;br /&gt;
Vy = v0 * sin(phi) * exp_term;&lt;br /&gt;
Vz = v1 * exp_term .* sin(pi * Z / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales&lt;br /&gt;
dx = x(2) - x(1);&lt;br /&gt;
dy = y(2) - y(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dx, dVx_dy] = gradient(Vx, dx, dy);&lt;br /&gt;
[dVy_dx, dVy_dy] = gradient(Vy, dx, dy);&lt;br /&gt;
[dVz_dx, dVz_dy] = gradient(Vz, dx, dy);&lt;br /&gt;
&lt;br /&gt;
% Rotacional en el plano horizontal&lt;br /&gt;
omega_x = dVz_dy;&lt;br /&gt;
omega_y = -dVz_dx;&lt;br /&gt;
omega_z = dVy_dx - dVx_dy;&lt;br /&gt;
&lt;br /&gt;
omega_mag = sqrt(omega_x.^2 + omega_y.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(X, Y, omega_mag); &lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
quiver(X, Y, omega_x, omega_y, 1.8,'k'); &lt;br /&gt;
title('Rotacional en el plano horizontal (z = H_{agua})');&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%   PLANO VERTICAL (x = 0)&lt;br /&gt;
&lt;br /&gt;
nz = 25;&lt;br /&gt;
ny = 25;&lt;br /&gt;
&lt;br /&gt;
x0 = 0;        &lt;br /&gt;
&lt;br /&gt;
z = linspace(0, Hagua, nz);&lt;br /&gt;
y = linspace(-50, 50, ny);&lt;br /&gt;
&lt;br /&gt;
[Yv, Zv] = meshgrid(y, z);&lt;br /&gt;
Xv = x0 * ones(size(Yv));&lt;br /&gt;
&lt;br /&gt;
% Campo de velocidades en el plano vertical&lt;br /&gt;
dist2v = Xv.^2 + Yv.^2;&lt;br /&gt;
exp_term_v = exp(-dist2v / R^2);&lt;br /&gt;
&lt;br /&gt;
Vxv = v0 * cos(phi) * exp_term_v;&lt;br /&gt;
Vyv = v0 * sin(phi) * exp_term_v;&lt;br /&gt;
Vzv = v1 * exp_term_v .* sin(pi * Zv / Hagua);&lt;br /&gt;
&lt;br /&gt;
% Derivadas espaciales en el plano vertical (∂/∂y y ∂/∂z)&lt;br /&gt;
dyv = y(2) - y(1);&lt;br /&gt;
dzv = z(2) - z(1);&lt;br /&gt;
&lt;br /&gt;
[dVx_dy_v, dVx_dz_v] = gradient(Vxv, dyv, dzv);&lt;br /&gt;
[dVy_dy_v, dVy_dz_v] = gradient(Vyv, dyv, dzv);&lt;br /&gt;
[dVz_dy_v, dVz_dz_v] = gradient(Vzv, dyv, dzv);&lt;br /&gt;
&lt;br /&gt;
% Rotacional completo:&lt;br /&gt;
&lt;br /&gt;
omega_x_v = dVz_dy_v - dVy_dz_v;&lt;br /&gt;
omega_y_v = dVx_dz_v;          &lt;br /&gt;
omega_z_v = - dVx_dy_v;         &lt;br /&gt;
&lt;br /&gt;
omega_mag_v = sqrt(omega_x_v.^2 + omega_z_v.^2);&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
pcolor(Yv, Zv, omega_mag_v);&lt;br /&gt;
shading interp;&lt;br /&gt;
colorbar;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Campo de rotacional proyectado (y,z)&lt;br /&gt;
quiver(Yv, Zv, omega_z_v, omega_x_v, 1.5, 'k');&lt;br /&gt;
&lt;br /&gt;
title('Rotacional en el plano vertical (x = 0)');&lt;br /&gt;
xlabel('y (m)'); &lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
axis equal tight;&lt;br /&gt;
hold off;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
El '''caudal''' nos dice cuánta agua o líquido está fluyendo y qué tan rápido lo hace. Conocer el caudal del río es fundamental para una presa porque permite: asegurar la estructura, dimensionar correctamente la presa y sus compuertas, gestionar el agua para riego o energía, y prever riesgos como inundaciones o sequías.&lt;br /&gt;
&lt;br /&gt;
Sabemos que nuestro campo de velocidad de entrada es el siguiente:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pues tenemos como condición que &amp;lt;math&amp;gt;v_{1}=0&amp;lt;/math&amp;gt;, es decir, que no tenga componente vertical.&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El caudal se define con la siguiente fórmula: &amp;lt;math&amp;gt;Q=v S&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; la velocidad y &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; la sección transversal.&amp;lt;br /&amp;gt;&lt;br /&gt;
Sin embargo, al no tener una sección fácil de calcular (rectángulo, circunferencia, triángulo...), usaremos la siguiente: &amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v\cdot ndS&amp;lt;/math&amp;gt;.&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabemos que el caudal entra en dirección &amp;lt;math&amp;gt;\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;, entonces, un vector normal de la sección transversal. (&amp;lt;math&amp;gt;\vec n = \left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;&amp;lt;/math&amp;gt;).&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculemos el producto &amp;lt;math&amp;gt;v\cdot n&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;\cdot\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos\varphi cos\varphi +sin\varphi sin\varphi \right )=v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left ( cos^2\varphi+sin^2\varphi\right )=v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tenemos información sobre el radio, vamos a pasarlo a coordenadas cilíndricas para simplificar la integral:&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;Q=\iint_{seccion}^{}v_{0}e^{-\frac{x^{2}+y^{2}}{R^{2}}}dxdy\Rightarrow \begin{Bmatrix}&lt;br /&gt;
x=\rho cos\theta   \\&lt;br /&gt;
y=\rho sin\theta   \\&lt;br /&gt;
dxdy\xrightarrow[]{\left | J\right |}\rho d\rho d\theta  \\&lt;br /&gt;
x^2+y^2=\rho ^2 \\&lt;br /&gt;
0\leq \rho \leq 100\\&lt;br /&gt;
0\leq \theta &amp;lt; 2\pi\\&lt;br /&gt;
\end{Bmatrix}\Rightarrow \int_{0}^{2\pi}\int_{0}^{100}v_{0}\rho e^{-\frac{\rho ^2}{R^{2}}}d\rho d\theta &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora resolvemos la integral, para ello haremos un cambio de variable:&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;2\pi v_{0}\int_{0}^{100}e^{-\frac{\rho ^2}{R^{2}}}\rho d\rho\Rightarrow \left\{ u=\frac{\rho ^2}{R^2}\Rightarrow du=\frac{2\rho}{R^2}d \rho \Rightarrow \rho d \rho =\frac{R^2}{2}du\right\}\Rightarrow 2\pi v_{0}\frac{R ^2}{2}\int_{0}^{u=\frac{100^2}{R^2}}e^{-u}du = \pi v_{0}R^2\left [ -e^{-u} \right ]_{0}^{\frac{100^2}{R^2}} = \pi v_{0}R^2(1-e^{-\frac{100^2}{R^2}})\approx 1413,5 m^3/s &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=Bibliografía y webgrafía=&lt;br /&gt;
Todo el código y gráficas realizadas con MATLAB.&amp;lt;br /&amp;gt;&lt;br /&gt;
Hecho con la asistencia de ChatGPT.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Teoría de Campos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Apuntes de la asignatura de Física de Sólidos y Fluidos.&amp;lt;br /&amp;gt;&lt;br /&gt;
Tipos de presas: &amp;lt;br /&amp;gt;&lt;br /&gt;
https://masqueingenieria.com/blog/tipos-de-presas-y-su-clasificacion/ &amp;lt;br /&amp;gt;&lt;br /&gt;
https://webaero.net/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.iagua.es/data/infraestructuras/presas/almendra&amp;lt;br /&amp;gt;&lt;br /&gt;
https://aldeadavila.es/presa-de-iberdrola/&amp;lt;br /&amp;gt;&lt;br /&gt;
https://es.linkedin.com/pulse/la-presa-de-el-atazar-fundaci%C3%B3n-canal&amp;lt;br /&amp;gt;&lt;br /&gt;
https://www.cronicanorte.es/cifras-curiosidades-del-embalse-del-atazar-canal-isabel-ii/98414&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101134</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101134"/>
				<updated>2025-12-05T16:35:30Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: /* Presiones sobre la presa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lacho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
La presa responde a un campo de presiones modelizado por la función:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\P(z)=P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;+Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt;×g(H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt;-z), z (0,H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt;)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde:&lt;br /&gt;
* P(z) = presión a la altura z&lt;br /&gt;
* P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; = presión atmosférica&lt;br /&gt;
* Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = densidad del agua, 1000kg/m&amp;lt;sup&amp;gt;3&amp;lt;/sup&amp;gt;&lt;br /&gt;
* g = gravedad, 9,81g/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&lt;br /&gt;
* H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = altura a la que se encuentra llena la presa, 125m&lt;br /&gt;
* z = altura&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 2: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Observando la Figura 2, vemos que la presión es lineal, aumentando conforme vamos perdiendo altura. Esto sigue la lógica de la fórmula fundamental de la estática de fluidos.&lt;br /&gt;
&lt;br /&gt;
= Curvatura =&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Parametrización:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
El caudal nos dice cuánta agua o líquido está fluyendo y qué tan rápido lo hace. Conocer el caudal del río es fundamental para una presa porque permite: asegurar la estructura, dimensionar correctamente la presa y sus compuertas, gestionar el agua para riego o energía, y prever riesgos como inundaciones o sequías.&lt;br /&gt;
&lt;br /&gt;
Sabemos que nuestro campo de velocidad de entrada es el siguiente:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pues tenemos como condición que &amp;lt;math&amp;gt;v_{1}=0&amp;lt;/math&amp;gt;, es decir, que no tenga componente vertical.&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101110</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101110"/>
				<updated>2025-12-05T16:28:37Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: /* Presiones sobre la presa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lacho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
La presa responde a un campo de presiones modelizado por la función:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\P(z)=P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt;+Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt;×g(H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt;-z), z (0,H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt;)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde:&lt;br /&gt;
* P(z) = presión a la altura z&lt;br /&gt;
* P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; = presión atmosférica&lt;br /&gt;
* Q&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = densidad del agua, 1000kg/m&amp;lt;sup&amp;gt;3&amp;lt;/sup&amp;gt;&lt;br /&gt;
* g = gravedad, 9,81g/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&lt;br /&gt;
* H&amp;lt;sub&amp;gt;w&amp;lt;/sub&amp;gt; = altura a la que se encuentra llena la presa, 125m&lt;br /&gt;
* z = altura&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 2: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Curvatura =&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Parametrización:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
El caudal nos dice cuánta agua o líquido está fluyendo y qué tan rápido lo hace. Conocer el caudal del río es fundamental para una presa porque permite: asegurar la estructura, dimensionar correctamente la presa y sus compuertas, gestionar el agua para riego o energía, y prever riesgos como inundaciones o sequías.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101103</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101103"/>
				<updated>2025-12-05T16:20:42Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: /* Presiones sobre la presa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lacho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
La presa responde a un campo de presiones modelizado por la función:&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
* P(z) = presión a la altura z&lt;br /&gt;
* P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; = presión atmosférica&lt;br /&gt;
* Q&amp;lt;sub&amp;gt;agua&amp;lt;/sub&amp;gt; = densidad del agua, 1000kg/m&amp;lt;sup&amp;gt;3&amp;lt;/sup&amp;gt;&lt;br /&gt;
* g = gravedad, 9,81g/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&lt;br /&gt;
* H&amp;lt;sub&amp;gt;agua&amp;lt;/sub&amp;gt; = altura a la que se encuentra llena la presa, 125m&lt;br /&gt;
* z = altura&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 2: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Curvatura =&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Parametrización:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101090</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101090"/>
				<updated>2025-12-05T16:08:12Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: /* Presiones sobre la presa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lacho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Figure_pressures.png|500px|miniaturadeimagen|derecha|Figura 2: Representación de presiones de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Curvatura =&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Parametrización:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y sustituyendo f(x,y) y g(z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \left [-\frac{2y}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}e^{-\frac{x^2+y^2}{R^2}}sin\left ( \frac{\pi z}{H_{agua}} \right )    \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}e^{-\frac{x^2+y^2}{R^2}}(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
El cálculo del rotacional muestra que el flujo de entrada al embalse '''presenta vorticidad''', lo que significa que el agua no entra de forma laminar, sino con '''tendencia a girar y formar remolinos'''. Las componentes horizontal y vertical del flujo generan rotación tanto en el plano horizontal como en planos verticales, produciendo torbellinos y zonas de recirculación a los lados del chorro. Esto implica que el flujo entrante induce una mezcla importante del agua, altera la distribución de velocidades y puede influir en el transporte de sedimentos y en la dinámica interna del embalse. En conjunto, los resultados indican que la entrada del río produce un patrón de circulación complejo y tridimensional dentro del embalse.&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Figure_pressures.png&amp;diff=101089</id>
		<title>Archivo:Figure pressures.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Figure_pressures.png&amp;diff=101089"/>
				<updated>2025-12-05T16:06:17Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101075</id>
		<title>La presa de El Atazar (Grupo 44)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=La_presa_de_El_Atazar_(Grupo_44)&amp;diff=101075"/>
				<updated>2025-12-05T15:55:29Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: /* Presiones sobre la presa */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | La presa de El Atazar (Grupo 44) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Marina Lacho Mora &amp;lt;br&amp;gt; José Luis Leines Almeida &amp;lt;br&amp;gt;       Rocío Martín Renzini   &amp;lt;br&amp;gt;     Jaime García Suárez   &amp;lt;br&amp;gt;    Pablo Fernández Arce |}}&lt;br /&gt;
'''La presa de El Atazar''', situada en el valle del río Lozoya al norte de la Comunidad de Madrid, es la infraestructura hidráulica '''más relevante''' del sistema de abastecimiento regional. Construida entre 1968 y 1972, es una presa de '''arco-gravedad''' que combina la acción del peso propio con el trabajo de la doble curvatura, aprovechando al máximo la geometría del valle. Con sus 134 m de altura y aproximadamente 484 m de coronación, genera un embalse de más de 425 hm³, fundamental para garantizar el suministro de agua a Madrid. Además de su capacidad, destaca por su diseño estructural y por el papel clave que desempeña dentro del conjunto de presas gestionadas en la cuenca del Lozoya.&lt;br /&gt;
&lt;br /&gt;
El objetivo de este trabajo es estudiar la geometría y el comportamiento hidrostático de la presa mediante herramientas de modelado y visualización en MATLAB. Para ello se representará la superficie del paramento de aguas arriba, se analizará el campo de presiones y se compararán dos configuraciones geométricas en términos de la fuerza que soportan. Además, se realizará una breve revisión de los principales tipos de presas y de algunos ejemplos destacados en España.&lt;br /&gt;
&lt;br /&gt;
= Introducción =&lt;br /&gt;
== Modelo geométrico de la presa ==&lt;br /&gt;
&lt;br /&gt;
Se analiza la superficie de la presa en su paramento de aguas arriba, es decir, la zona en contacto directo con el embalse. Dado que la presa presenta doble curvatura, su trazado adopta una forma de arco circular en planta y un arco de tipo parabólico en la sección vertical.&lt;br /&gt;
Utilizando un sistema de coordenadas cilíndricas (𝜌,𝜃,𝑧), cuyo origen se sitúa en el centro del valle y con el eje 𝑧 dirigido hacia arriba, la geometría se describe mediante la siguiente superficie:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\qquad θ ∈ [\frac{2π}{3}, \frac{4π}{3}]&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\qquad Z ∈ [0,H]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde:&lt;br /&gt;
&lt;br /&gt;
* 𝐻 = 134 m: altura de la presa.&lt;br /&gt;
* &amp;lt;math&amp;gt;\rho_{0}&amp;lt;/math&amp;gt;= 150 m: radio en la coronación (altura máxima). &lt;br /&gt;
* 𝑏 = 40 m: parámetro de curvatura parabólica.&lt;br /&gt;
&lt;br /&gt;
== Campo de presión hidrostática ==&lt;br /&gt;
&lt;br /&gt;
Cuando el embalse está lleno hasta la altura &amp;lt;math&amp;gt;H_{agua}&amp;lt;/math&amp;gt; medida desde la base de la presa, la presión que ejerce el agua sobre el paramento de aguas arriba viene dada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;P(z)=P_{0}+g\varrho_{agua}(H_{agua}-z)&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;\qquad z\in \left[0,H_{agua}\right]&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde P&amp;lt;sub&amp;gt;0&amp;lt;/sub&amp;gt; es la presión representa la presión atmosférica, &amp;lt;math&amp;gt;\varrho_{agua}&amp;lt;/math&amp;gt; es la densidad del agua y g la aceleración de la gravedad. En este estudio se toma &amp;lt;math&amp;gt;H_{agua}=125m&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El campo de fuerzas asociado a dicha presión sobre la superficie puede expresarse como:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\overrightarrow{F} = −P(z) \overrightarrow{n}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\overrightarrow{n}&amp;lt;/math&amp;gt; el vector normal a la superficie, orientado hacia el interior del embalse.&lt;br /&gt;
&lt;br /&gt;
= Superficie parametrizada =&lt;br /&gt;
A la derecha nos encontramos con la superficie parametrizada de la presa en su cara aguas arriba.&amp;lt;br&amp;gt;&lt;br /&gt;
La presa se modela mediante una parametrización en coordenadas cilíndricas (𝜌,𝜃,𝑧), donde:&amp;lt;br&amp;gt;&lt;br /&gt;
'''1. Curvatura Horizontal (Arco Circular):''' El ángulo 𝜃 define la forma de arco circular del '''plano horizontal''', que permite que la presa resista la presión del agua por compresión &amp;lt;br&amp;gt;&lt;br /&gt;
'''2. Curvatura Vertical (Arco Parabólico):''' El radio 𝜌 se hace dependiente de la altura 𝑧 mediante una función parabólica &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\rho = \rho_{0} + b (1 - \frac{z^2}{h^2})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto provoca que el radio sea máximo en la base (𝑧=0) y mínimo en la coronación (𝑧=H).Esta variación '''optimiza la distribución de tensiones''', ya que las presas son más gruesas y necesitan un radio mayor en la base donde la presión del agua es máxima.&lt;br /&gt;
[[Archivo:Aguas1.png|500px|miniaturadeimagen|derecha|Superficie parametrizada de la presa realizada con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros&lt;br /&gt;
H = 134;           % Altura de la presa&lt;br /&gt;
rho0 = 150;        % Radio en la coronación&lt;br /&gt;
b = 40;            % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200);    % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200);                  % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure&lt;br /&gt;
surf(X, Y, Z)&lt;br /&gt;
shading interp&lt;br /&gt;
colormap('turbo')&lt;br /&gt;
xlabel('x')&lt;br /&gt;
ylabel('y')&lt;br /&gt;
zlabel('z')&lt;br /&gt;
title('Cara aguas arriba de la presa (parámetro cilíndrico)')&lt;br /&gt;
axis equal&lt;br /&gt;
grid on&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Presiones sobre la presa=&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros geométricos &lt;br /&gt;
H = 134;      % Altura de la presa&lt;br /&gt;
Hw = 125;     % Altura agua&lt;br /&gt;
rho0 = 150;   % Radio en la coronacion&lt;br /&gt;
b = 40;       % Parámetro de curvatura parabólica&lt;br /&gt;
&lt;br /&gt;
% Rango de parámetros&lt;br /&gt;
theta = linspace(2*pi/3, 4*pi/3, 200); % Ángulo (cara aguas arriba)&lt;br /&gt;
z = linspace(0, H, 200); % Altura&lt;br /&gt;
&lt;br /&gt;
% Crear malla&lt;br /&gt;
[Theta, Z] = meshgrid(theta, z);&lt;br /&gt;
&lt;br /&gt;
% Expresión del radio en función de z&lt;br /&gt;
Rho = rho0 + b*(1 - (Z.^2)/(H^2));&lt;br /&gt;
&lt;br /&gt;
% Convertir a coordenadas cartesianas&lt;br /&gt;
X = Rho .* cos(Theta);&lt;br /&gt;
Y = Rho .* sin(Theta);&lt;br /&gt;
&lt;br /&gt;
% Datos densidad y gravedad&lt;br /&gt;
Po = 1000;&lt;br /&gt;
g = 9.81;&lt;br /&gt;
&lt;br /&gt;
% Relación presión-altura&lt;br /&gt;
P = Po * g * (Hw - Z);&lt;br /&gt;
&lt;br /&gt;
% Gráfica de la superficie&lt;br /&gt;
figure;&lt;br /&gt;
surf(X, Y, Z, P, &amp;quot;EdgeColor&amp;quot;, &amp;quot;none&amp;quot;);&lt;br /&gt;
title('Campo escalar de presión en la presa');&lt;br /&gt;
xlabel('x');&lt;br /&gt;
ylabel('y');&lt;br /&gt;
zlabel('z');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
colormap(&amp;quot;jet&amp;quot;);&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Curvatura =&lt;br /&gt;
= Tipos de presas=&lt;br /&gt;
= Sedimentación en el embalse =&lt;br /&gt;
Los sedimentos transportados por el agua del río se depositan en el fondo del embalse, reduciendo el volumen, y por lo tanto, reduciendo su capacidad. Modelamos la concentración de sedimentos depositados en el fondo del embalse (en kg/m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;) como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;S_{0}=50kg/m^2&amp;lt;/math&amp;gt; es la sedimentación base, &amp;lt;math&amp;gt;\alpha = 3&amp;lt;/math&amp;gt; modela la mayor acumulación cerca de la entrada del río, y &amp;lt;math&amp;gt;L=500m&amp;lt;/math&amp;gt; es una escala característica. Para simplificar, considera el fondo del embalse como aproximadamente plano en &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; y con forma de sector circular centrado en el valle, delimitado por el arco de la presa en su base.&lt;br /&gt;
&lt;br /&gt;
== Representación ==&lt;br /&gt;
[[Archivo:Fondito.jpg|500px|miniaturadeimagen|derecha|Sedimentación en el fondo hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
%Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio del fondo del embalse&lt;br /&gt;
x = linspace(-700,700,300);&lt;br /&gt;
y = linspace(-700,700,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Campo escalar S(x,y)&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1+ alpha*exp(-R/L^2));&lt;br /&gt;
&lt;br /&gt;
%Figura: mapa de colores&lt;br /&gt;
figure('Units', 'normalized')&lt;br /&gt;
p = pcolor(X, Y, S);&lt;br /&gt;
set (p, 'EdgeColor', 'none');&lt;br /&gt;
colorbar;&lt;br /&gt;
axis equal;&lt;br /&gt;
title('Campo escalar S(x,y)');&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Gradiente de sedimentación ==&lt;br /&gt;
Gracias al gradiente, sabremos hacia qué dirección aumenta más rápido la sedimentación y qué tan rápido cambia.&lt;br /&gt;
&lt;br /&gt;
Dado:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;S(x,y)=S_{0}\left ( 1+\alpha e^{-\frac{x^2+y^2}{L^2}} \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de x:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial x}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La derivada en función de y:&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{\partial S}{\partial y}=S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, el resultado de mi gradiente es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=(S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2x}{L^2} \right ),S_{0}\alpha e^{(-\frac{x^2+y^2}{L^2})}\left ( -\frac{2y}{L^2} \right ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Veamos de una forma sencilla ahora hacia qué lado apunta. Para ello, simplificaremos el gradiente de la siguiente manera:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇S(x,y)=\left ( -\frac{2x}{L^2}(algo positivo),-\frac{2y}{L^2}(algo positivo) \right )&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a centrarnos en lo que no es positivo.&lt;br /&gt;
&lt;br /&gt;
Supongamos que &amp;lt;math&amp;gt;x&amp;gt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;lt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la izquierda, porque los valores negativos de x están a la izquierda. &lt;br /&gt;
&lt;br /&gt;
Ahora supongamos &amp;lt;math&amp;gt;x&amp;lt;0&amp;lt;/math&amp;gt;, entonces &amp;lt;math&amp;gt;-\frac{2x}{L^2}&amp;gt;0&amp;lt;/math&amp;gt;. Por lo tanto, la flecha apunta hacia la derecha, porque los valores positivos de x están a la derecha.&lt;br /&gt;
&lt;br /&gt;
Como vemos, sin importar que x tomemos, apuntará al '''origen'''.&lt;br /&gt;
&lt;br /&gt;
Ocurre lo mismo si suponemos &amp;lt;math&amp;gt;y&amp;gt;0, y&amp;lt;0&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''el gradiente apunta al centro de la presa, &amp;lt;math&amp;gt;(0,0)&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
¿Cómo interpretamos estos resultados? En las zonas cercanas al centro del embalse, el gradiente es grande. Esto refleja que la sedimentación crece de forma pronunciada hacia el punto por donde entra el río. En las regiones más alejadas, el gradiente disminuye, lo que implica que la concentración cambia más lentamente y la acumulación es menos notable.&lt;br /&gt;
&lt;br /&gt;
La magnitud del gradiente puede visualizarse mediante un mapa de colores: los tonos más fuertes corresponden a variaciones intensas de la concentración. Por su parte, la dirección del gradiente se representa con flechas negras, que muestran hacia dónde se desplaza el flujo de sedimentos hacia áreas de mayor concentración.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Untitledw.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
%Dominio&lt;br /&gt;
x = linspace(-400,400,200);&lt;br /&gt;
y = linspace(-400,400,200);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Radio y campo S&lt;br /&gt;
R = X.^2 + Y.^2;&lt;br /&gt;
S = S0*(1 + alpha*exp(-R / L^2));&lt;br /&gt;
&lt;br /&gt;
% Gradiente&lt;br /&gt;
coef = -2 * S0 * alpha / (L^2);&lt;br /&gt;
dx = coef * X .* exp(-R / L^2);&lt;br /&gt;
dy = coef * Y .* exp(-R / L^2);&lt;br /&gt;
&lt;br /&gt;
% Magnitud del gradiente&lt;br /&gt;
mag = sqrt(dx.^2 + dy.^2);&lt;br /&gt;
&lt;br /&gt;
% Figura&lt;br /&gt;
figure('Units','normalized','Position',[0.1 0.1 0.6 0.6])&lt;br /&gt;
p = pcolor(X, Y, mag);&lt;br /&gt;
set(p,'EdgeColor','none')&lt;br /&gt;
colorbar&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
axis equal&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Representación gradiente de sedimentación')&lt;br /&gt;
step = 6;&lt;br /&gt;
quiver(X(1:step:end,1:step:end), Y(1:step:end,1:step:end), dx(1:step:end,1:step:end), dy(1:step:end,1:step:end), 'k')&lt;br /&gt;
plot(0,0,'y.','MarkerSize',10)&lt;br /&gt;
legend({'Magnitud del gradiente','Campo vectorial','Origen'})     &lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Masa sedimentos ==&lt;br /&gt;
Para calcular la masa total de sedimentos depositados aplicamos la fórmula: &amp;lt;math&amp;gt;\quad  M = \iint_{A} S(x,y)\, dA  &amp;lt;/math&amp;gt;. &amp;lt;br /&amp;gt;&lt;br /&gt;
Primero empezamos calculando el radio del sector circular del fondo: &amp;lt;center&amp;gt;&amp;lt;math&amp;gt; R_\text{base} = \rho_0 + b = 150 + 40 = 190~\text{m} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
Ahora para facilitar los cálculos podemos usar coordenadas polares debido a que el dominio de integración es un sector circular: &amp;lt;br /&amp;gt; &lt;br /&gt;
Parametrización:  \begin{cases}&lt;br /&gt;
x = r\cos\theta &amp;amp; ,\text{donde  }  r^2 = x^2 + y^2 \\&lt;br /&gt;
y = r\sin\theta \\    &lt;br /&gt;
\end{cases}&lt;br /&gt;
&lt;br /&gt;
== Curvas de isoconcentración ==&lt;br /&gt;
Una '''curva de isoconcentración''' es una línea que une todos los puntos donde '''la concentración es la misma'''. &amp;lt;math&amp;gt;(S(x,y)=cte)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En mi función, &amp;lt;math&amp;gt;S_{0}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;1&amp;lt;/math&amp;gt; son constantes, por lo que el único término que varía es &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{L^2}}&amp;lt;/math&amp;gt;. Como &amp;lt;math&amp;gt;L^2&amp;lt;/math&amp;gt; también es constante, mi función depende solo de '''&amp;lt;math&amp;gt;x^2+y^2=r^2&amp;lt;/math&amp;gt;'''. Eso significa que  S depende solo de la  distancia al origen, así que mis curvas de nivel serán '''círculos'''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Apartadito.jpg|500px|miniaturadeimagen|derecha|Gradiente de sedimentación hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc, clear, close all&lt;br /&gt;
&lt;br /&gt;
% Parámetros&lt;br /&gt;
S0 = 50;&lt;br /&gt;
alpha = 3;&lt;br /&gt;
L = 500;&lt;br /&gt;
&lt;br /&gt;
% Dominio &lt;br /&gt;
x = linspace(-800,800,300);&lt;br /&gt;
y = linspace(-800,800,300);&lt;br /&gt;
[X,Y] = meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
% Campo escalar S&lt;br /&gt;
S = S0 * (1 + alpha * exp(-(X.^2 + Y.^2)/L^2));&lt;br /&gt;
&lt;br /&gt;
% Representación de curvas de nivel&lt;br /&gt;
figure;&lt;br /&gt;
contour(X, Y, S, 10, 'LineWidth', 1.5);&lt;br /&gt;
axis equal;&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title('Curvas de isoconcentración de sedimentación S(x,y)');&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
= Flujo de entrada del río =&lt;br /&gt;
El río Lozoya entra al embalse por el extremo norte. Los modelos a continuación describen cómo se mueve el agua al entrar en el embalse, mostrando que el flujo es más intenso  cerca de la entrada, y que disminuye rápidamente con la distancia. Además, incluye una pequeña componente vertical que representa la mezcla interna del agua. &lt;br /&gt;
&lt;br /&gt;
Todo ello '''permite analizar el transporte de sedimentos, la mezcla de temperaturas y la dinámica interna del embalse.'''&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 2D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y)=v_{0}e^{-\frac{x^{2+y^2}}{R^2}}(cos\varphi \vec{i}+sen\varphi \vec{j})&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{0} = 0.5\,\text{m/s}\) es la '''velocidad máxima en el centro de entrada''', \(R = 30\,\text{m}\) es el '''radio característico''', y \(\varphi = \pi/6\) es el '''ángulo de entrada'''.&lt;br /&gt;
Se considera el dominio \((x,y) \in [-100\,\text{m},\, 100\,\text{m}]^{2}\),&lt;br /&gt;
\(\sqrt{x^{2}+y^{2}}\leq \rho _{a}\), donde \(\rho_{a}\) es el '''radio de la presa a la altura \(z = H_{\text{agua}}\).''' El factor exponencial indica que el agua entra concentrada y luego se abre perdiendo fuerza.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Modelado en 3D:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde \(v_{1} = 0.1\,\text{m/s}\) es la '''velocidad máxima de la componente vertical''', y \(z \in [0, H_{\text{agua}}]\). &lt;br /&gt;
&lt;br /&gt;
== Campo vectorial de la velocidad ==&lt;br /&gt;
[[Archivo:planoHorizontal.jpg|500px|miniaturadeimagen|derecha|Plano horizontal para Z = 125 hecho con el programa MATLAB]]&lt;br /&gt;
[[Archivo:Planovertical.jpg|500px|miniaturadeimagen|derecha|Plano vertical para y = 0 hecho con el programa MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;        % Velocidad horizontal máxima (m/s)&lt;br /&gt;
v1 = 0.1;        % Velocidad vertical máxima (m/s)&lt;br /&gt;
R = 30;          % Radio característico (m)&lt;br /&gt;
phi = pi/6;      % Ángulo de entrada (rad)&lt;br /&gt;
H = 125;         % Altura del agua (m)&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano superficial z = H)&lt;br /&gt;
xvec = -100:4:100;&lt;br /&gt;
yvec = -100:4:100;&lt;br /&gt;
[x, y] = meshgrid(xvec, yvec);&lt;br /&gt;
z_surface = H;   % Plano superficial&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en superficie&lt;br /&gt;
vx = v0 * cos(phi) .* E;&lt;br /&gt;
vy = v0 * sin(phi) .* E;&lt;br /&gt;
vz_surface = v1 * sin(pi*z_surface/H) .* E;&lt;br /&gt;
&lt;br /&gt;
% Representación plano horizontal (z = H)&lt;br /&gt;
figure('Name', 'Campo en superficie (z = H)');&lt;br /&gt;
quiver(x, y, vx, vy,'k');&lt;br /&gt;
axis equal;&lt;br /&gt;
xlim([min(xvec) max(xvec)]);&lt;br /&gt;
ylim([min(yvec) max(yvec)]);&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('y (m)');&lt;br /&gt;
title(sprintf('Campo de velocidad en superficie (z = %d m)', H));&lt;br /&gt;
grid on;&lt;br /&gt;
&lt;br /&gt;
% Representación en plano vertical (y = 0)&lt;br /&gt;
xz = linspace(-100, 100, 61);&lt;br /&gt;
zz = linspace(0, H, 41);&lt;br /&gt;
[XZ, ZZ] = meshgrid(xz, zz);&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial solo depende de X en este plano&lt;br /&gt;
E_vert = exp(-(XZ.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Componentes del campo en el plano vertical&lt;br /&gt;
VX_vert = v0 * cos(phi) .* E_vert;&lt;br /&gt;
VZ_vert = v1 * sin(pi*ZZ/H) .* E_vert;&lt;br /&gt;
&lt;br /&gt;
% Figura vertical&lt;br /&gt;
figure('Name', 'Campo en plano vertical y=0', 'NumberTitle', 'off');&lt;br /&gt;
quiver(XZ, ZZ, VX_vert, VZ_vert,'k');&lt;br /&gt;
xlabel('x (m)');&lt;br /&gt;
ylabel('z (m)');&lt;br /&gt;
title('Plano vertical (y = 0)');&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo==&lt;br /&gt;
La divergencia de un campo vectorial &amp;lt;math&amp;gt;\vec{v}=(v_{x},v_{y},v_{z})&amp;lt;/math&amp;gt; se define: &amp;lt;math&amp;gt; ∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La divergencia mide si en un punto el flujo se está expandido o concentrando:&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt; indica que el '''flujo se abre o se dispersa'''.&lt;br /&gt;
* &amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt; indica que el '''flujo se acumula'''.&lt;br /&gt;
&lt;br /&gt;
En el caso del embalse, calcular la divergencia del campo de velocidad del agua que entra por el río nos permite:&lt;br /&gt;
&lt;br /&gt;
* Identificar zonas de acumulación de agua y sedimentos, donde el flujo converge (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;lt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Detectar regiones donde el flujo se dispersa, con menor sedimentación (&amp;lt;math&amp;gt; ∇\cdot \vec{v}&amp;gt;0&amp;lt;/math&amp;gt;)&lt;br /&gt;
* Comprender la dinámica interna del embalse, cómo se mezcla el agua y cómo se distribuyen los sedimentos.&lt;br /&gt;
&lt;br /&gt;
Mi campo es:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}(x,y,z)= v_{0}\, e^{-\frac{x^{2}+y^{2}}{R^{2}}}\left( \cos\varphi\, \hat{\imath} + \sin\varphi\, \hat{\jmath} \right)\;+\;v_{1}\,\sin\left( \frac{\pi z}{H_{\text{agua}}} \right)\, e^{-\frac{x^{2}+y^{2}}{R^{2}}} \hat{k}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Donde &amp;lt;math&amp;gt;v_{x}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{y}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}},\qquad v_{z}=v_{1}sin\left ( \frac{\pi z}{H_{agua}} \right )e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Empecemos entonces haciendo las derivadas parciales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{x}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{x}}{\partial x}=v_{0}cos(\varphi)\cdot \frac{\partial}{\partial x}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}cos(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2x}{R^2} \right )= -\frac{2xv_{0}cos\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{y}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{y}}{\partial y}=v_{0}sin(\varphi)\cdot \frac{\partial}{\partial y}e^{-\frac{x^{2}+y^{2}}{R^2}}=v_{0}sin(\varphi)e^{-\frac{x^{2}+y^{2}}{R^2}}\cdot \left ( -\frac{2y}{R^2} \right )= -\frac{2yv_{0}sin\varphi }{R^{2}}e^{-\frac{x^{2}+y^{2}}{R^2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para &amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt;: &amp;lt;math&amp;gt;\frac{\partial v_{z}}{\partial z}=v_{1}e^{-\frac{x^2+y^2}{R^2}}\frac{\partial }{\partial z}\left [ sin\left ( \frac{\pi z}{H_{agua}} \right )\right ]=v_{1}e^{-\frac{x^2+y^2}{R^2}}\cdot \frac{\pi }{H_{agua}}cos\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Y ahora sumamos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\cdot \vec{v}=\frac{\partial v_{x}}{\partial x}+\frac{\partial v_{y}}{\partial y}+\frac{\partial v_{z}}{\partial z}=e^{-\frac{x^2+y^2}{R^2}}\left [-\frac{2xv_{0}cos\varphi }{R^{2}}-\frac{2yv_{0}sin\varphi }{R^{2}}+\frac{\pi v_{1}}{H_{agua}}cos(\frac{\pi z}{H_{agua}}) \right ] &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''¿Dónde es máximo?'''&lt;br /&gt;
Los términos &amp;lt;math&amp;gt;-\frac{2xv_{0}cos\varphi }{R^{2}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;-\frac{2yv_{0}sin\varphi }{R^{2}}&amp;lt;/math&amp;gt; son &amp;lt;math&amp;gt;0&amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;. El término vertical &amp;lt;math&amp;gt;\frac{\pi v_{1}}{H_{agua}}cos\left (\frac{\pi z}{H_{agua}}\right )&amp;lt;/math&amp;gt; es máximo cuando &amp;lt;math&amp;gt;cos\left (\frac{\pi z}{H_{agua}}\right )=1\Rightarrow z=0&amp;lt;/math&amp;gt;.&lt;br /&gt;
El término exponencial &amp;lt;math&amp;gt;e^{-\frac{x^2+y^2}{R^2}}&amp;lt;/math&amp;gt; es máximo en &amp;lt;math&amp;gt;x=0, y=0&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto, '''la divergencia máxima se da en el centro de la entrada del río y en la superficie''' &amp;lt;math&amp;gt;(0, 0, 0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_1.jpg|500px|miniaturadeimagen|derecha|Divergencia en 2D hecha en MATLAB]]&lt;br /&gt;
[[Archivo:Div_2.jpg|500px|miniaturadeimagen|derecha|Divergencia en 3D hecha en MATLAB]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear, clc, close all&lt;br /&gt;
% Parámetros&lt;br /&gt;
v0 = 0.5;      % m/s, velocidad horizontal máxima&lt;br /&gt;
v1 = 0.1;      % m/s, velocidad vertical máxima&lt;br /&gt;
R  = 30;       % m, radio característico&lt;br /&gt;
phi = pi/6;    % ángulo de entrada&lt;br /&gt;
H = 125;       % m, altura del agua&lt;br /&gt;
&lt;br /&gt;
% Dominio horizontal (plano z = H)&lt;br /&gt;
xv = linspace(-100,100,100);&lt;br /&gt;
yv = linspace(-100,100,100);&lt;br /&gt;
[x, y] = meshgrid(xv, yv);&lt;br /&gt;
&lt;br /&gt;
z_surface = H;  % Plano superficial (z = H)&lt;br /&gt;
&lt;br /&gt;
% Factor exponencial&lt;br /&gt;
E = exp(-(x.^2 + y.^2)/R^2);&lt;br /&gt;
&lt;br /&gt;
% Coeficientes para la divergencia&lt;br /&gt;
coefx = -2 * v0 * cos(phi) / R^2;&lt;br /&gt;
coefy = -2 * v0 * sin(phi) / R^2;&lt;br /&gt;
coefz = v1 * (pi / H);&lt;br /&gt;
&lt;br /&gt;
% Divergencia&lt;br /&gt;
diver = E .* (coefx .* x + coefy .* y + coefz .* cos(pi * z_surface / H));&lt;br /&gt;
&lt;br /&gt;
% Representación 3D &lt;br /&gt;
figure('Name', 'Divergencia en superficie');&lt;br /&gt;
surf(x, y, diver);&lt;br /&gt;
shading interp&lt;br /&gt;
hold on;&lt;br /&gt;
contour3(x, y, diver, 20, 'b'); &lt;br /&gt;
hold off;&lt;br /&gt;
title('Divergencia (plano superficial z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
view(30,25);&lt;br /&gt;
axis tight;&lt;br /&gt;
&lt;br /&gt;
% Representación en mapa de colores 2D &lt;br /&gt;
figure('Name', 'Mapa de colores divergencia (superficie)');&lt;br /&gt;
imagesc(xv, yv, diver);&lt;br /&gt;
axis xy; axis equal;&lt;br /&gt;
xlabel('x (m)'); ylabel('y (m)');&lt;br /&gt;
title('Mapa de colores: divergencia en superficie (z = H)');&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Rotacional del campo==&lt;br /&gt;
En este estudio, el rotacional del campo de velocidad permite identificar si el flujo del río Lozoya entra al embalse con '''vorticidad''', es decir, con tendencia a girar o formar remolinos. Calcular el rotacional nos indica dónde el agua presenta '''zonas de giro''' tanto en el plano horizontal como en el vertical. Esto es importante porque la vorticidad influye en la '''estabilidad del flujo''', en la '''mezcla del agua''', en el '''transporte de sedimentos''' y en el modo en que el chorro de entrada interactúa con el embalse.&lt;br /&gt;
&lt;br /&gt;
En este caso, como demostraremos a continuación, el rotacional no es cero, por lo que el flujo presenta '''remolinos y rotación''', especialmente cerca de los bordes del chorro de entrada, lo que confirma que la entrada de agua no es uniforme ni completamente laminar.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Definiremos: &amp;lt;math&amp;gt;f(x,y)=e^{-\frac{x^2+y^2}{R^2}}, \qquad g(z)=sin\left ( \frac{\pi z}{H_{agua}} \right )&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De esta forma: &amp;lt;math&amp;gt;v(x,y,z)=v_{0}f(x,y)(cos(\varphi) \vec{i}+sin(\varphi )\vec{j})+v_{1}f(x,y)g(z)\vec{k}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇\times v=\begin{vmatrix}&lt;br /&gt;
 \vec{i}&amp;amp; \vec{j} &amp;amp; \vec{k} \\&lt;br /&gt;
 \frac{\partial }{\partial x}&amp;amp; \frac{\partial }{\partial y} &amp;amp;  \frac{\partial }{\partial z}\\&lt;br /&gt;
 v_{x}&amp;amp; v_{y} &amp;amp; v_{z} \\&lt;br /&gt;
\end{vmatrix}=\left ( \frac{\partial v_{z}}{\partial y}-\frac{\partial v_{y}}{\partial z} \right )\vec{i}+\left ( \frac{\partial v_{x}}{\partial z}-\frac{\partial v_{z}}{\partial x} \right )\vec{j}+\left ( \frac{\partial v_{y}}{\partial x}-\frac{\partial v_{x}}{\partial y} \right )\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo: &amp;lt;math&amp;gt;v_{x}=v_{0}f(x,y)cos(\varphi) \qquad v_{y}=v_{0}f(x,y)sin(\varphi) v_{z}=v_{1}f(x,y)g(z) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vemos que:&lt;br /&gt;
* &amp;lt;math&amp;gt;v_{x}, v_{y}&amp;lt;/math&amp;gt; dependen solo de &amp;lt;math&amp;gt;x, y&amp;lt;/math&amp;gt;.&lt;br /&gt;
*&amp;lt;math&amp;gt;v_{z}&amp;lt;/math&amp;gt; depende de &amp;lt;math&amp;gt;x, y, z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\left ( -\frac{2y}{R^2}v_{1}fg(z)-0\right )\vec{i}+\left ( 0-\left (-\frac{2x}{R^2}v_{1}fg(z)\right )\right )\vec{j}+\left ( -\frac{2x}{R^2}v_{0}fsin(\varphi)-\left ( -\frac{2y}{R^2}v_{0}fcos(\varphi) \right ) \right ) = \left [-\frac{2y}{R^2}v_{1}fg(z)  \right ]\vec{i}+ \left [\frac{2x}{R^2}v_{1}fg(z)  \right ]\vec{j}+\left [ \frac{2}{R^2}v_{0}f(-xsin(\varphi )+ycos(\varphi )) \right ]\vec{k}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Caudal de entrada==&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47828</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47828"/>
				<updated>2021-12-10T10:18:40Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt;(1,0)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;(-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt;(0,1)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;(0,-1)&amp;lt;/math&amp;gt; como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB. El gif nos muestra el movimiento del fluido, viendo como evita el obstáculo circular, y empleando los colores para denotar la velocidad.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n1 =30;&lt;br /&gt;
rho = linspace(1,5,n1);&lt;br /&gt;
tht = linspace(0,2*pi,n1);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
n = 1000; &lt;br /&gt;
ro_val = 5*ones(n);&lt;br /&gt;
tt_val = linspace(pi,2*pi,n);&lt;br /&gt;
t = 10;&lt;br /&gt;
k = 20;&lt;br /&gt;
x_list = zeros(n,t*k);&lt;br /&gt;
y_list = zeros(n,t*k);&lt;br /&gt;
v_list = zeros(n,t*k);&lt;br /&gt;
p_list = zeros(n,t*k);&lt;br /&gt;
&lt;br /&gt;
for i = 1:n&lt;br /&gt;
    ro = ro_val(i);&lt;br /&gt;
    tt = tt_val(i);&lt;br /&gt;
    xl = zeros(1,k*t);&lt;br /&gt;
    yl = zeros(1,k*t);&lt;br /&gt;
    vl = zeros(1,k*t);&lt;br /&gt;
    pl = zeros(1,k*t);&lt;br /&gt;
    for j = 1:k*t &lt;br /&gt;
        xl(j) = ro*cos(tt);&lt;br /&gt;
        yl(j) = ro*sin(tt);&lt;br /&gt;
        vl(j) = sqrt(Grho(ro,tt)^2 + Gtht(ro,tt)^2);&lt;br /&gt;
        pl(j) = 10 - vl(j)^2;&lt;br /&gt;
        ro = ro + ((Grho(ro,tt))/t);&lt;br /&gt;
        tt = tt + 2*(asin(Gtht(ro,tt)/(2*ro)))/t;&lt;br /&gt;
    end&lt;br /&gt;
    x_list(i,:) = xl;&lt;br /&gt;
    y_list(i,:) = yl;&lt;br /&gt;
    v_list(i,:) = vl;&lt;br /&gt;
    p_list(i,:) = pl;&lt;br /&gt;
end    &lt;br /&gt;
%Normalizar velocidades&lt;br /&gt;
v_max = max(max(v_list));&lt;br /&gt;
v_min = min(min(v_list));&lt;br /&gt;
v_range = v_max - v_min;&lt;br /&gt;
v_norm = (v_list - v_min)./v_range;&lt;br /&gt;
%Normalizar presiones&lt;br /&gt;
p_max = max(max(p_list));&lt;br /&gt;
p_min = min(min(p_list));&lt;br /&gt;
p_range = p_max - p_min;&lt;br /&gt;
p_norm = (p_list - p_min)./p_range;&lt;br /&gt;
%Colores de velocidades&lt;br /&gt;
max_c = [0 1 0];&lt;br /&gt;
min_c = [0 0 1];&lt;br /&gt;
var_c = max_c - min_c;&lt;br /&gt;
c_map_v = repmat(var_c,size(v_norm)).*repelem(v_norm,1,3) + repmat(min_c,size(v_norm));&lt;br /&gt;
c_map_p = repmat(var_c,size(p_norm)).*repelem(p_norm,1,3) + repmat(min_c,size(p_norm));&lt;br /&gt;
&lt;br /&gt;
sz = 7;&lt;br /&gt;
l_range = 1;&lt;br /&gt;
for l = 1:k*t&lt;br /&gt;
    %contour(x,y,z,n1)&lt;br /&gt;
    hold on &lt;br /&gt;
    scatter(x_list(:,l),y_list(:,l),sz,c_map_p(:,l_range:3*l),'o','filled')&lt;br /&gt;
    axis([-5 5 -5 5])&lt;br /&gt;
    drawnow&lt;br /&gt;
    M(l) = getframe;&lt;br /&gt;
    l_range = l*3 + 1;&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|frame|centro|Figura 6: Velocidad y comportamiento del fluido  ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos calculados, siendo estos &amp;lt;math&amp;gt;(0,1)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;(0,-1)&amp;lt;/math&amp;gt;, los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 5 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernouilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=&amp;lt;math&amp;gt; \frac{\pi}{2} o \frac{3\pi}{2} &amp;lt;/math&amp;gt; y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47827</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47827"/>
				<updated>2021-12-10T10:12:34Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt; como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB. El gif nos muestra el movimiento del fluido, viendo como evita el obstáculo circular, y empleando los colores para denotar la velocidad.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n1 =30;&lt;br /&gt;
rho = linspace(1,5,n1);&lt;br /&gt;
tht = linspace(0,2*pi,n1);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
n = 1000; &lt;br /&gt;
ro_val = 5*ones(n);&lt;br /&gt;
tt_val = linspace(pi,2*pi,n);&lt;br /&gt;
t = 10;&lt;br /&gt;
k = 20;&lt;br /&gt;
x_list = zeros(n,t*k);&lt;br /&gt;
y_list = zeros(n,t*k);&lt;br /&gt;
v_list = zeros(n,t*k);&lt;br /&gt;
p_list = zeros(n,t*k);&lt;br /&gt;
&lt;br /&gt;
for i = 1:n&lt;br /&gt;
    ro = ro_val(i);&lt;br /&gt;
    tt = tt_val(i);&lt;br /&gt;
    xl = zeros(1,k*t);&lt;br /&gt;
    yl = zeros(1,k*t);&lt;br /&gt;
    vl = zeros(1,k*t);&lt;br /&gt;
    pl = zeros(1,k*t);&lt;br /&gt;
    for j = 1:k*t &lt;br /&gt;
        xl(j) = ro*cos(tt);&lt;br /&gt;
        yl(j) = ro*sin(tt);&lt;br /&gt;
        vl(j) = sqrt(Grho(ro,tt)^2 + Gtht(ro,tt)^2);&lt;br /&gt;
        pl(j) = 10 - vl(j)^2;&lt;br /&gt;
        ro = ro + ((Grho(ro,tt))/t);&lt;br /&gt;
        tt = tt + 2*(asin(Gtht(ro,tt)/(2*ro)))/t;&lt;br /&gt;
    end&lt;br /&gt;
    x_list(i,:) = xl;&lt;br /&gt;
    y_list(i,:) = yl;&lt;br /&gt;
    v_list(i,:) = vl;&lt;br /&gt;
    p_list(i,:) = pl;&lt;br /&gt;
end    &lt;br /&gt;
%Normalizar velocidades&lt;br /&gt;
v_max = max(max(v_list));&lt;br /&gt;
v_min = min(min(v_list));&lt;br /&gt;
v_range = v_max - v_min;&lt;br /&gt;
v_norm = (v_list - v_min)./v_range;&lt;br /&gt;
%Normalizar presiones&lt;br /&gt;
p_max = max(max(p_list));&lt;br /&gt;
p_min = min(min(p_list));&lt;br /&gt;
p_range = p_max - p_min;&lt;br /&gt;
p_norm = (p_list - p_min)./p_range;&lt;br /&gt;
%Colores de velocidades&lt;br /&gt;
max_c = [0 1 0];&lt;br /&gt;
min_c = [0 0 1];&lt;br /&gt;
var_c = max_c - min_c;&lt;br /&gt;
c_map_v = repmat(var_c,size(v_norm)).*repelem(v_norm,1,3) + repmat(min_c,size(v_norm));&lt;br /&gt;
c_map_p = repmat(var_c,size(p_norm)).*repelem(p_norm,1,3) + repmat(min_c,size(p_norm));&lt;br /&gt;
&lt;br /&gt;
sz = 7;&lt;br /&gt;
l_range = 1;&lt;br /&gt;
for l = 1:k*t&lt;br /&gt;
    %contour(x,y,z,n1)&lt;br /&gt;
    hold on &lt;br /&gt;
    scatter(x_list(:,l),y_list(:,l),sz,c_map_p(:,l_range:3*l),'o','filled')&lt;br /&gt;
    axis([-5 5 -5 5])&lt;br /&gt;
    drawnow&lt;br /&gt;
    M(l) = getframe;&lt;br /&gt;
    l_range = l*3 + 1;&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|frame|centro|Figura 6: Velocidad y comportamiento del fluido  ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos calculados, siendo estos &amp;lt;math&amp;gt;p=1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\frac {π}{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac {3π}{2}&amp;lt;/math&amp;gt;, los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 5 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernouilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=&amp;lt;math&amp;gt; \frac{\pi}{2} o \frac{3\pi}{2} &amp;lt;/math&amp;gt; y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47818</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47818"/>
				<updated>2021-12-10T10:05:19Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt; como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB. El gif nos muestra el movimiento del fluido, viendo como evita el obstáculo circular, y empleando los colores para denotar la velocidad.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n1 =30;&lt;br /&gt;
rho = linspace(1,5,n1);&lt;br /&gt;
tht = linspace(0,2*pi,n1);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
n = 1000; &lt;br /&gt;
ro_val = 5*ones(n);&lt;br /&gt;
tt_val = linspace(pi,2*pi,n);&lt;br /&gt;
t = 10;&lt;br /&gt;
k = 20;&lt;br /&gt;
x_list = zeros(n,t*k);&lt;br /&gt;
y_list = zeros(n,t*k);&lt;br /&gt;
v_list = zeros(n,t*k);&lt;br /&gt;
p_list = zeros(n,t*k);&lt;br /&gt;
&lt;br /&gt;
for i = 1:n&lt;br /&gt;
    ro = ro_val(i);&lt;br /&gt;
    tt = tt_val(i);&lt;br /&gt;
    xl = zeros(1,k*t);&lt;br /&gt;
    yl = zeros(1,k*t);&lt;br /&gt;
    vl = zeros(1,k*t);&lt;br /&gt;
    pl = zeros(1,k*t);&lt;br /&gt;
    for j = 1:k*t &lt;br /&gt;
        xl(j) = ro*cos(tt);&lt;br /&gt;
        yl(j) = ro*sin(tt);&lt;br /&gt;
        vl(j) = sqrt(Grho(ro,tt)^2 + Gtht(ro,tt)^2);&lt;br /&gt;
        pl(j) = 10 - vl(j)^2;&lt;br /&gt;
        ro = ro + ((Grho(ro,tt))/t);&lt;br /&gt;
        tt = tt + 2*(asin(Gtht(ro,tt)/(2*ro)))/t;&lt;br /&gt;
    end&lt;br /&gt;
    x_list(i,:) = xl;&lt;br /&gt;
    y_list(i,:) = yl;&lt;br /&gt;
    v_list(i,:) = vl;&lt;br /&gt;
    p_list(i,:) = pl;&lt;br /&gt;
end    &lt;br /&gt;
%Normalizar velocidades&lt;br /&gt;
v_max = max(max(v_list));&lt;br /&gt;
v_min = min(min(v_list));&lt;br /&gt;
v_range = v_max - v_min;&lt;br /&gt;
v_norm = (v_list - v_min)./v_range;&lt;br /&gt;
%Normalizar presiones&lt;br /&gt;
p_max = max(max(p_list));&lt;br /&gt;
p_min = min(min(p_list));&lt;br /&gt;
p_range = p_max - p_min;&lt;br /&gt;
p_norm = (p_list - p_min)./p_range;&lt;br /&gt;
%Colores de velocidades&lt;br /&gt;
max_c = [0 1 0];&lt;br /&gt;
min_c = [0 0 1];&lt;br /&gt;
var_c = max_c - min_c;&lt;br /&gt;
c_map_v = repmat(var_c,size(v_norm)).*repelem(v_norm,1,3) + repmat(min_c,size(v_norm));&lt;br /&gt;
c_map_p = repmat(var_c,size(p_norm)).*repelem(p_norm,1,3) + repmat(min_c,size(p_norm));&lt;br /&gt;
&lt;br /&gt;
sz = 7;&lt;br /&gt;
l_range = 1;&lt;br /&gt;
for l = 1:k*t&lt;br /&gt;
    %contour(x,y,z,n1)&lt;br /&gt;
    hold on &lt;br /&gt;
    scatter(x_list(:,l),y_list(:,l),sz,c_map_p(:,l_range:3*l),'o','filled')&lt;br /&gt;
    axis([-5 5 -5 5])&lt;br /&gt;
    drawnow&lt;br /&gt;
    M(l) = getframe;&lt;br /&gt;
    l_range = l*3 + 1;&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|frame|centro|Figura 6: Velocidad y comportamiento del fluido  ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos calculados, siendo estos &amp;lt;math&amp;gt;p=1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p=\frac {π}{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;p=\frac {3π}{2}&amp;lt;/math&amp;gt;, los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 5 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernouilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47816</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47816"/>
				<updated>2021-12-10T09:57:05Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt; como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB. El gif nos muestra el movimiento del fluido, viendo como evita el obstáculo circular, y empleando los colores para denotar la velocidad.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n1 =30;&lt;br /&gt;
rho = linspace(1,5,n1);&lt;br /&gt;
tht = linspace(0,2*pi,n1);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
n = 1000; &lt;br /&gt;
ro_val = 5*ones(n);&lt;br /&gt;
tt_val = linspace(pi,2*pi,n);&lt;br /&gt;
t = 10;&lt;br /&gt;
k = 20;&lt;br /&gt;
x_list = zeros(n,t*k);&lt;br /&gt;
y_list = zeros(n,t*k);&lt;br /&gt;
v_list = zeros(n,t*k);&lt;br /&gt;
p_list = zeros(n,t*k);&lt;br /&gt;
&lt;br /&gt;
for i = 1:n&lt;br /&gt;
    ro = ro_val(i);&lt;br /&gt;
    tt = tt_val(i);&lt;br /&gt;
    xl = zeros(1,k*t);&lt;br /&gt;
    yl = zeros(1,k*t);&lt;br /&gt;
    vl = zeros(1,k*t);&lt;br /&gt;
    pl = zeros(1,k*t);&lt;br /&gt;
    for j = 1:k*t &lt;br /&gt;
        xl(j) = ro*cos(tt);&lt;br /&gt;
        yl(j) = ro*sin(tt);&lt;br /&gt;
        vl(j) = sqrt(Grho(ro,tt)^2 + Gtht(ro,tt)^2);&lt;br /&gt;
        pl(j) = 10 - vl(j)^2;&lt;br /&gt;
        ro = ro + ((Grho(ro,tt))/t);&lt;br /&gt;
        tt = tt + 2*(asin(Gtht(ro,tt)/(2*ro)))/t;&lt;br /&gt;
    end&lt;br /&gt;
    x_list(i,:) = xl;&lt;br /&gt;
    y_list(i,:) = yl;&lt;br /&gt;
    v_list(i,:) = vl;&lt;br /&gt;
    p_list(i,:) = pl;&lt;br /&gt;
end    &lt;br /&gt;
%Normalizar velocidades&lt;br /&gt;
v_max = max(max(v_list));&lt;br /&gt;
v_min = min(min(v_list));&lt;br /&gt;
v_range = v_max - v_min;&lt;br /&gt;
v_norm = (v_list - v_min)./v_range;&lt;br /&gt;
%Normalizar presiones&lt;br /&gt;
p_max = max(max(p_list));&lt;br /&gt;
p_min = min(min(p_list));&lt;br /&gt;
p_range = p_max - p_min;&lt;br /&gt;
p_norm = (p_list - p_min)./p_range;&lt;br /&gt;
%Colores de velocidades&lt;br /&gt;
max_c = [0 1 0];&lt;br /&gt;
min_c = [0 0 1];&lt;br /&gt;
var_c = max_c - min_c;&lt;br /&gt;
c_map_v = repmat(var_c,size(v_norm)).*repelem(v_norm,1,3) + repmat(min_c,size(v_norm));&lt;br /&gt;
c_map_p = repmat(var_c,size(p_norm)).*repelem(p_norm,1,3) + repmat(min_c,size(p_norm));&lt;br /&gt;
&lt;br /&gt;
sz = 7;&lt;br /&gt;
l_range = 1;&lt;br /&gt;
for l = 1:k*t&lt;br /&gt;
    %contour(x,y,z,n1)&lt;br /&gt;
    hold on &lt;br /&gt;
    scatter(x_list(:,l),y_list(:,l),sz,c_map_p(:,l_range:3*l),'o','filled')&lt;br /&gt;
    axis([-5 5 -5 5])&lt;br /&gt;
    drawnow&lt;br /&gt;
    M(l) = getframe;&lt;br /&gt;
    l_range = l*3 + 1;&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|frame|centro|Figura 6: Velocidad y comportamiento del fluido  ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos calculados, los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 5 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernouilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47815</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47815"/>
				<updated>2021-12-10T09:53:01Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt; como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB. El gif nos muestra el movimiento del fluido.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n1 =30;&lt;br /&gt;
rho = linspace(1,5,n1);&lt;br /&gt;
tht = linspace(0,2*pi,n1);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
n = 1000; &lt;br /&gt;
ro_val = 5*ones(n);&lt;br /&gt;
tt_val = linspace(pi,2*pi,n);&lt;br /&gt;
t = 10;&lt;br /&gt;
k = 20;&lt;br /&gt;
x_list = zeros(n,t*k);&lt;br /&gt;
y_list = zeros(n,t*k);&lt;br /&gt;
v_list = zeros(n,t*k);&lt;br /&gt;
p_list = zeros(n,t*k);&lt;br /&gt;
&lt;br /&gt;
for i = 1:n&lt;br /&gt;
    ro = ro_val(i);&lt;br /&gt;
    tt = tt_val(i);&lt;br /&gt;
    xl = zeros(1,k*t);&lt;br /&gt;
    yl = zeros(1,k*t);&lt;br /&gt;
    vl = zeros(1,k*t);&lt;br /&gt;
    pl = zeros(1,k*t);&lt;br /&gt;
    for j = 1:k*t &lt;br /&gt;
        xl(j) = ro*cos(tt);&lt;br /&gt;
        yl(j) = ro*sin(tt);&lt;br /&gt;
        vl(j) = sqrt(Grho(ro,tt)^2 + Gtht(ro,tt)^2);&lt;br /&gt;
        pl(j) = 10 - vl(j)^2;&lt;br /&gt;
        ro = ro + ((Grho(ro,tt))/t);&lt;br /&gt;
        tt = tt + 2*(asin(Gtht(ro,tt)/(2*ro)))/t;&lt;br /&gt;
    end&lt;br /&gt;
    x_list(i,:) = xl;&lt;br /&gt;
    y_list(i,:) = yl;&lt;br /&gt;
    v_list(i,:) = vl;&lt;br /&gt;
    p_list(i,:) = pl;&lt;br /&gt;
end    &lt;br /&gt;
%Normalizar velocidades&lt;br /&gt;
v_max = max(max(v_list));&lt;br /&gt;
v_min = min(min(v_list));&lt;br /&gt;
v_range = v_max - v_min;&lt;br /&gt;
v_norm = (v_list - v_min)./v_range;&lt;br /&gt;
%Normalizar presiones&lt;br /&gt;
p_max = max(max(p_list));&lt;br /&gt;
p_min = min(min(p_list));&lt;br /&gt;
p_range = p_max - p_min;&lt;br /&gt;
p_norm = (p_list - p_min)./p_range;&lt;br /&gt;
%Colores de velocidades&lt;br /&gt;
max_c = [0 1 0];&lt;br /&gt;
min_c = [0 0 1];&lt;br /&gt;
var_c = max_c - min_c;&lt;br /&gt;
c_map_v = repmat(var_c,size(v_norm)).*repelem(v_norm,1,3) + repmat(min_c,size(v_norm));&lt;br /&gt;
c_map_p = repmat(var_c,size(p_norm)).*repelem(p_norm,1,3) + repmat(min_c,size(p_norm));&lt;br /&gt;
&lt;br /&gt;
sz = 7;&lt;br /&gt;
l_range = 1;&lt;br /&gt;
for l = 1:k*t&lt;br /&gt;
    %contour(x,y,z,n1)&lt;br /&gt;
    hold on &lt;br /&gt;
    scatter(x_list(:,l),y_list(:,l),sz,c_map_p(:,l_range:3*l),'o','filled')&lt;br /&gt;
    axis([-5 5 -5 5])&lt;br /&gt;
    drawnow&lt;br /&gt;
    M(l) = getframe;&lt;br /&gt;
    l_range = l*3 + 1;&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|frame|centro|Figura 6: Velocidad y comportamiento del fluido  ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 6 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernouilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47742</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47742"/>
				<updated>2021-12-09T21:53:19Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n1 =30;&lt;br /&gt;
rho = linspace(1,5,n1);&lt;br /&gt;
tht = linspace(0,2*pi,n1);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
n = 1000; &lt;br /&gt;
ro_val = 5*ones(n);&lt;br /&gt;
tt_val = linspace(pi,2*pi,n);&lt;br /&gt;
t = 10;&lt;br /&gt;
k = 20;&lt;br /&gt;
x_list = zeros(n,t*k);&lt;br /&gt;
y_list = zeros(n,t*k);&lt;br /&gt;
v_list = zeros(n,t*k);&lt;br /&gt;
p_list = zeros(n,t*k);&lt;br /&gt;
&lt;br /&gt;
for i = 1:n&lt;br /&gt;
    ro = ro_val(i);&lt;br /&gt;
    tt = tt_val(i);&lt;br /&gt;
    xl = zeros(1,k*t);&lt;br /&gt;
    yl = zeros(1,k*t);&lt;br /&gt;
    vl = zeros(1,k*t);&lt;br /&gt;
    pl = zeros(1,k*t);&lt;br /&gt;
    for j = 1:k*t &lt;br /&gt;
        xl(j) = ro*cos(tt);&lt;br /&gt;
        yl(j) = ro*sin(tt);&lt;br /&gt;
        vl(j) = sqrt(Grho(ro,tt)^2 + Gtht(ro,tt)^2);&lt;br /&gt;
        pl(j) = 10 - vl(j)^2;&lt;br /&gt;
        ro = ro + ((Grho(ro,tt))/t);&lt;br /&gt;
        tt = tt + 2*(asin(Gtht(ro,tt)/(2*ro)))/t;&lt;br /&gt;
    end&lt;br /&gt;
    x_list(i,:) = xl;&lt;br /&gt;
    y_list(i,:) = yl;&lt;br /&gt;
    v_list(i,:) = vl;&lt;br /&gt;
    p_list(i,:) = pl;&lt;br /&gt;
end    &lt;br /&gt;
%Normalizar velocidades&lt;br /&gt;
v_max = max(max(v_list));&lt;br /&gt;
v_min = min(min(v_list));&lt;br /&gt;
v_range = v_max - v_min;&lt;br /&gt;
v_norm = (v_list - v_min)./v_range;&lt;br /&gt;
%Normalizar presiones&lt;br /&gt;
p_max = max(max(p_list));&lt;br /&gt;
p_min = min(min(p_list));&lt;br /&gt;
p_range = p_max - p_min;&lt;br /&gt;
p_norm = (p_list - p_min)./p_range;&lt;br /&gt;
%Colores de velocidades&lt;br /&gt;
max_c = [0 1 0];&lt;br /&gt;
min_c = [0 0 1];&lt;br /&gt;
var_c = max_c - min_c;&lt;br /&gt;
c_map_v = repmat(var_c,size(v_norm)).*repelem(v_norm,1,3) + repmat(min_c,size(v_norm));&lt;br /&gt;
c_map_p = repmat(var_c,size(p_norm)).*repelem(p_norm,1,3) + repmat(min_c,size(p_norm));&lt;br /&gt;
&lt;br /&gt;
sz = 7;&lt;br /&gt;
l_range = 1;&lt;br /&gt;
for l = 1:k*t&lt;br /&gt;
    %contour(x,y,z,n1)&lt;br /&gt;
    hold on &lt;br /&gt;
    %scatter(x_list(:,l),y_list(:,l),sz,c_map_v(:,l_range:3*l),'o','filled')&lt;br /&gt;
    scatter(x_list(:,l),y_list(:,l),sz,c_map_p(:,l_range:3*l),'o','filled')&lt;br /&gt;
    axis([-5 5 -5 5])&lt;br /&gt;
    drawnow&lt;br /&gt;
    M(l) = getframe;&lt;br /&gt;
    l_range = l*3 + 1;&lt;br /&gt;
end&lt;br /&gt;
movie2gif(M, 'sin.gif', 'LoopCount', 3, 'DelayTime', 0)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|frame|centro|Figura 6: Velocidad del fluido ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 6 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernouilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47741</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47741"/>
				<updated>2021-12-09T21:51:18Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n1 =30;&lt;br /&gt;
rho = linspace(1,5,n1);&lt;br /&gt;
tht = linspace(0,2*pi,n1);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
n = 1000; &lt;br /&gt;
ro_val = 5*ones(n);&lt;br /&gt;
tt_val = linspace(pi,2*pi,n);&lt;br /&gt;
t = 10;&lt;br /&gt;
k = 20;&lt;br /&gt;
x_list = zeros(n,t*k);&lt;br /&gt;
y_list = zeros(n,t*k);&lt;br /&gt;
v_list = zeros(n,t*k);&lt;br /&gt;
p_list = zeros(n,t*k);&lt;br /&gt;
&lt;br /&gt;
for i = 1:n&lt;br /&gt;
    ro = ro_val(i);&lt;br /&gt;
    tt = tt_val(i);&lt;br /&gt;
    xl = zeros(1,k*t);&lt;br /&gt;
    yl = zeros(1,k*t);&lt;br /&gt;
    vl = zeros(1,k*t);&lt;br /&gt;
    pl = zeros(1,k*t);&lt;br /&gt;
    for j = 1:k*t &lt;br /&gt;
        xl(j) = ro*cos(tt);&lt;br /&gt;
        yl(j) = ro*sin(tt);&lt;br /&gt;
        vl(j) = sqrt(Grho(ro,tt)^2 + Gtht(ro,tt)^2);&lt;br /&gt;
        pl(j) = 10 - vl(j)^2;&lt;br /&gt;
        ro = ro + ((Grho(ro,tt))/t);&lt;br /&gt;
        tt = tt + 2*(asin(Gtht(ro,tt)/(2*ro)))/t;&lt;br /&gt;
    end&lt;br /&gt;
    x_list(i,:) = xl;&lt;br /&gt;
    y_list(i,:) = yl;&lt;br /&gt;
    v_list(i,:) = vl;&lt;br /&gt;
    p_list(i,:) = pl;&lt;br /&gt;
end    &lt;br /&gt;
%Normalizar velocidades&lt;br /&gt;
v_max = max(max(v_list));&lt;br /&gt;
v_min = min(min(v_list));&lt;br /&gt;
v_range = v_max - v_min;&lt;br /&gt;
v_norm = (v_list - v_min)./v_range;&lt;br /&gt;
%Normalizar presiones&lt;br /&gt;
p_max = max(max(p_list));&lt;br /&gt;
p_min = min(min(p_list));&lt;br /&gt;
p_range = p_max - p_min;&lt;br /&gt;
p_norm = (p_list - p_min)./p_range;&lt;br /&gt;
%Colores de velocidades&lt;br /&gt;
max_c = [0 1 0];&lt;br /&gt;
min_c = [0 0 1];&lt;br /&gt;
var_c = max_c - min_c;&lt;br /&gt;
c_map_v = repmat(var_c,size(v_norm)).*repelem(v_norm,1,3) + repmat(min_c,size(v_norm));&lt;br /&gt;
c_map_p = repmat(var_c,size(p_norm)).*repelem(p_norm,1,3) + repmat(min_c,size(p_norm));&lt;br /&gt;
&lt;br /&gt;
sz = 7;&lt;br /&gt;
l_range = 1;&lt;br /&gt;
for l = 1:k*t&lt;br /&gt;
    %contour(x,y,z,n1)&lt;br /&gt;
    hold on &lt;br /&gt;
    %scatter(x_list(:,l),y_list(:,l),sz,c_map_v(:,l_range:3*l),'o','filled')&lt;br /&gt;
    scatter(x_list(:,l),y_list(:,l),sz,c_map_p(:,l_range:3*l),'o','filled')&lt;br /&gt;
    axis([-5 5 -5 5])&lt;br /&gt;
    drawnow&lt;br /&gt;
    M(l) = getframe;&lt;br /&gt;
    l_range = l*3 + 1;&lt;br /&gt;
end&lt;br /&gt;
movie2gif(M, 'sin.gif', 'LoopCount', 3, 'DelayTime', 0)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|frame|Figura 6: Velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 6 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernouilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47738</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47738"/>
				<updated>2021-12-09T21:44:52Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|miniaturadeimagen|derecha|Figura 6: Velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif, que ha sido conseguido con el siguiente código MATLAB.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 6 con la figura 7 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47735</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47735"/>
				<updated>2021-12-09T21:36:01Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|miniaturadeimagen|derecha|Figura 6: Velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif.&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 7: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 6 con la figura 5 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47733</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47733"/>
				<updated>2021-12-09T21:31:27Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Fluid.gif|miniaturadeimagen|derecha|Figura 6: Velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Para poder apreciar más la velocidad del fluido de acuerdo a los puntos hemos realizado el siguiente gif.&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 6 con la figura 5 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Fluid.gif&amp;diff=47732</id>
		<title>Archivo:Fluid.gif</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Fluid.gif&amp;diff=47732"/>
				<updated>2021-12-09T21:20:48Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47730</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47730"/>
				<updated>2021-12-09T21:15:10Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = sqrt((fx.^2 + fy.^2));&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy)&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Comparando la figura 6 con la figura 5 observamos como son completamente opuestos los valores máximos y mínimos. El código empleado para la realización del último gráfico ha sido el siguiente:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
%forma de encontrar los puntos más altos &lt;br /&gt;
lsz(1) = max(max(z));&lt;br /&gt;
lsz(2) = max(max(z-z.*(z == lsz(1))));&lt;br /&gt;
k2 =(z &amp;gt;= lsz(2));&lt;br /&gt;
&lt;br /&gt;
%Separa los 2 puntos más altos&lt;br /&gt;
xm = reshape(nonzeros(x.*k2),1,[]);&lt;br /&gt;
ym = reshape(nonzeros(y.*k2),1,[]);&lt;br /&gt;
zm = reshape(nonzeros(z.*k2),1,[]);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
hold on &lt;br /&gt;
scatter3(xm,ym,zm,'ro','filled') %2 puntos altos&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya fórmula es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2θ)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2θ)}{ρ^3})\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt\frac{2(cte - p)}{d} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 8: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47336</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47336"/>
				<updated>2021-12-08T09:41:09Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.jpg|miniaturadeimagen|derecha|Figura 7: Comparación de las velocidades y presiones máximas y mínimas del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Con la figura 7 podemos ver además una comparativa con respecto a como quedan la presión y la velocidad en sus máximos y mínimos. Para la realización de las figuras se ha propuesto el siguiente código en lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya formual es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2o)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2o)}{ρ^3})\vec e_o &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt(\frac{2(cte - p)}{d}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%La función y sus gradientes en polares&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1 - 1./(rho.^2)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1 + 1./(rho.^2)));&lt;br /&gt;
%Mallado de la región&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%A cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
%Gradiente en polares&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
%Cambio del gradiente a cartesianas&lt;br /&gt;
fx = (frho.*x - ftht.*y)./sqrt(x.^2 + y.^2);&lt;br /&gt;
fy = (frho.*y + ftht.*x)./sqrt(x.^2 + y.^2);&lt;br /&gt;
%Velocidad en el punto dado por vectores&lt;br /&gt;
v = sqrt(fx.^2 + fy.^2);&lt;br /&gt;
z = 10-v.^2;&lt;br /&gt;
&lt;br /&gt;
%Gráfica de las curvas de presiones&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
axis([-5 5 -5 5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Enunciado12.jpg||frame|centro|Figura 9: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Enunciado12.jpg&amp;diff=47335</id>
		<title>Archivo:Enunciado12.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Enunciado12.jpg&amp;diff=47335"/>
				<updated>2021-12-08T09:40:47Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47323</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47323"/>
				<updated>2021-12-07T21:51:28Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.jpg|miniaturadeimagen|derecha|Figura 7: Comparación de las velocidades y presiones máximas y mínimas del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Con la figura 7 podemos ver además una comparativa con respecto a como quedan la presión y la velocidad en sus máximos y mínimos. Para la realización de las figuras se ha propuesto el siguiente código en lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya formual es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2o)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2o)}{ρ^3})\vec e_o &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt(\frac{2(cte - p)}{d}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presion curva.jpg||frame|centro|Figura 9: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47322</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47322"/>
				<updated>2021-12-07T21:50:39Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.jpg|miniaturadeimagen|derecha|Figura 7: Comparación de las velocidades y presiones máximas y mínimas del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Con la figura 7 podemos ver además una comparativa con respecto a como quedan la presión y la velocidad en sus máximos y mínimos. Para la realización de las figuras se ha propuesto el siguiente código en lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya formual es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2o)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2o)}{ρ^3})\vec e_o &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt(\frac{2(cte - p)}{d}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presion curva.jpg|centro|Figura 9: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47321</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47321"/>
				<updated>2021-12-07T21:50:09Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.jpg|miniaturadeimagen|derecha|Figura 7: Comparación de las velocidades y presiones máximas y mínimas del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Con la figura 7 podemos ver además una comparativa con respecto a como quedan la presión y la velocidad en sus máximos y mínimos. Para la realización de las figuras se ha propuesto el siguiente código en lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya formual es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2o)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2o)}{ρ^3})\vec e_o &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt(\frac{2(cte - p)}{d}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presion curva.jpg|miniaturadeimagen|centro|Figura 9: Curvas de presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Presion_curva.jpg&amp;diff=47320</id>
		<title>Archivo:Presion curva.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Presion_curva.jpg&amp;diff=47320"/>
				<updated>2021-12-07T21:48:30Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47319</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47319"/>
				<updated>2021-12-07T21:46:07Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: como podemos ver en la figura 5 realizada con el siguiente código de lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.jpg|miniaturadeimagen|derecha|Figura 7: Comparación de las velocidades y presiones máximas y mínimas del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Con la figura 7 podemos ver además una comparativa con respecto a como quedan la presión y la velocidad en sus máximos y mínimos. Para la realización de las figuras se ha propuesto el siguiente código en lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya formual es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2o)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2o)}{ρ^3})\vec e_o &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt(\frac{2(cte - p)}{d}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47318</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47318"/>
				<updated>2021-12-07T21:43:26Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa MATLAB. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código MATLAB que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad-colorbar.jpg|miniaturadeimagen|derecha|Figura 5: Puntos máximos y mínimos de velocidad del fluido ]]&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta forma, los valores máximos de velocidad serán: &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt; y los valores mínimos: &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;. Los puntos de remanso serán: &lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|derecha|Figura 6: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.jpg|miniaturadeimagen|derecha|Figura 7: Comparación de las velocidades y presiones máximas y mínimas del fluido]]&lt;br /&gt;
&lt;br /&gt;
Como podemos observar en la figura 6, las presiones máximas y mínimas se alcanzan en los puntos '''(AÑADIR PUNTOS)''', los cuales son opuestos a los puntos de mayor y menor velocidad que veíamos en el apartado anterior acerca de los puntos frontera. Con la figura 7 podemos ver además una comparativa con respecto a como quedan la presión y la velocidad en sus máximos y mínimos. Para la realización de las figuras se ha propuesto el siguiente código en lenguaje m.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya formual es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2o)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2o)}{ρ^3})\vec e_o &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt(\frac{2(cte - p)}{d}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Velocidad-colorbar.jpg&amp;diff=47317</id>
		<title>Archivo:Velocidad-colorbar.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Velocidad-colorbar.jpg&amp;diff=47317"/>
				<updated>2021-12-07T21:43:00Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47316</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=47316"/>
				<updated>2021-12-07T21:23:10Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}e_θ &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Presions.jpg|miniaturadeimagen|centro|Figura 5: Presión del fluido]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Demostración de coincidencia===&lt;br /&gt;
&lt;br /&gt;
A la ecuación de Navier-Stokes se le aplican las condiciones, queda tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla\vec u = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ecuación de Bernuilli, punto de partida:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
A la ecuación de Bernuilli aplicamos el operador gradiente a ambos lados&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla|\vec u|^2 + \nabla p = \nabla cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se entiende que &amp;lt;math&amp;gt; \nabla p &amp;lt;/math&amp;gt; se trata del gradiente, que cuya función potencial, es la función p (calculada en el apartado anterior). El gradiente de una constante es &amp;lt;math&amp;gt; \vec 0 &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d\nabla(\vec u\vec u) + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d(\nabla\vec u\vec u + \vec u\nabla\vec u) + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d2(\nabla\vec u)\vec u + \nabla p= \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\nabla\vec u)\vec u + \nabla p = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Claramente de puede comprobar que son idénticas, esto se debe principalmente a la similitud de conceptos que emplearon para llegar a su respectivas conclusiones.&lt;br /&gt;
&lt;br /&gt;
==Variación de presión y velocidad==&lt;br /&gt;
&lt;br /&gt;
===Presión===&lt;br /&gt;
&lt;br /&gt;
Siendo p:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac{1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que la presión variará al cambiar de trayectoria, esta responderá a la forma matemática del gradiente de la presión, cuya formual es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla p = \vec v = (\frac{4cos(2o)}{ρ^3} + \frac{4}{ρ^5})\vec e_ρ + (\frac{4sen(2o)}{ρ^3})\vec e_o &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&lt;br /&gt;
===Velocidad===&lt;br /&gt;
&lt;br /&gt;
Si por ejemplo, la presión sufre un aumento, dado que esta responde o participa en la ecuación de Bernuilli de los apartado anteriores y siendo la igualdad igual a una constante, al aumentar la presión, la velocidad disminuirá tal que:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u| = \sqrt(\frac{2(cte - p)}{d}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Corolario===&lt;br /&gt;
&lt;br /&gt;
En este caso, la presión será máxima para ρ=1 y para θ=0 y por ende la velocidad será mínima en esos puntos.&lt;br /&gt;
Gráficamente, ese punto corresponde a la zona donde impacta el fluido contra la esfera, en dicha zona se producen elevadas presiones y velocidades mínimas.&lt;br /&gt;
En las zonas de baja presión, se produce una elevación efectiva del flujo.&lt;br /&gt;
&lt;br /&gt;
==Teorema de Kutta-Joukowski==&lt;br /&gt;
&lt;br /&gt;
Se trata de un teorema básico en la aerodinámica, fue enunciado por Martin Wilhelm Kutta (matemático alemán) y Nikolai Joukowski (ingeniero mecánico ruso) a principios del siglo XX.&lt;br /&gt;
&lt;br /&gt;
El fin del teorema es cuantificar la elevación que se produce por un flujo (en el experimento aire) sobre un cilindro rotando.&lt;br /&gt;
&lt;br /&gt;
Sin embargo, esto produce uan fuerza por unidad de longitud que actúa sobre el cilindro tiene como modulo dG&amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; y dirección ortogonal a &amp;lt;math&amp;gt; \vec V &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
La ecuación matemática es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; Elevación por unidad de volumen = dGV &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde ''d'' es la densidad del fluido, ''G'' es un valor que cuantifica la intensidad del vórtice que se forma (circulación) y ''V'' es la velocidad del fluido. Para calcular la intensidad del vórtice se utiliza la siguiente expresión matemática, donde interviene la densidad del fluido de nuevo, ''ω'' se trata de la velocidad angular con la que rota en cilindro y ''r'' el radio de este.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; G = 2dωr^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Circulación===&lt;br /&gt;
&lt;br /&gt;
Se puede llegar a la conclusión de que el flujo/circulación, se puede definir como la integral del campo gradiente &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; alrededor de una curva cerrada.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, se trata de la integral del campo de velocidades del fluido, alrededor de la circunferencias de radio la unidad.&lt;br /&gt;
&lt;br /&gt;
Aplicando el teorema de Stokes, que nos dice que la integral de un campo vectorial continuo y diferenciable a lo largo de una curva cerrada, es igual al flujo del rotacional de una superficie cualquiera de frontera la curva.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{L} \vec u \cdot d(\vec r) = \int_{S} (\nabla \times \vec u) \vec n \cdot dS &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tal y como se ga calculado en el apartado 5.1 el rotacional de este campo vectorial es nulo, por lo que la circulación será nula.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \int_{S} (\nabla \times \vec u) \vec n \cdot dS = \int_{S} (0)\vec n \cdot dS = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Además, el rotacional, del gradiente de un función potencial es nulo.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla \times (\nabla ∂) = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Paradoja de D'Alambert===&lt;br /&gt;
&lt;br /&gt;
La paradoja de Jean Le Rond D'Alambert (matemático francés) es una contradicción matemática a la que él llego. Además, fue de los primeros en emplear la formulación del flujo potencial. &lt;br /&gt;
Esta paradoja de basa en que no actuarán fuerzas sobre un cuerpo que se mueve a velocidad constante a través de una masa de fluido incompresible no viscoso. Esto contradice a la observación, de ahí la contradicción.&lt;br /&gt;
&lt;br /&gt;
==Curvas de presión==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
A continuación, se adjunta el algoritmo en lenguaje M y las respectivas curvas nivel que este proporciona. &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,10,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
z = 10-(fx.^2 + fy.^2);&lt;br /&gt;
&lt;br /&gt;
surface(x,y,z);&lt;br /&gt;
colorbar;&lt;br /&gt;
view([45 30]);&lt;br /&gt;
figure&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
colorbar;&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
Tal y como se puede comprobar, en las zonas en las que donde la velocidad es menor, hay un considerable aumento de la presión. &lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Presions.jpg&amp;diff=47315</id>
		<title>Archivo:Presions.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Presions.jpg&amp;diff=47315"/>
				<updated>2021-12-07T21:22:43Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46986</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46986"/>
				<updated>2021-12-06T19:54:47Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|400px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u| + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46985</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46985"/>
				<updated>2021-12-06T19:54:01Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|750px|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u| + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46984</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46984"/>
				<updated>2021-12-06T19:50:49Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|centro|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u| + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46983</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46983"/>
				<updated>2021-12-06T19:32:38Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cos(θ)}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sin(θ)}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cos(θ)}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sin(θ)}{ρ^2})])\vec e_z = \frac{1}{ρ}(\frac{ρ^2cos(θ)-cos(θ)}{ρ^2}-\frac{ρ^2cos(θ)-cos(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u= \vec 0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sin(θ)}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cos(θ)}{ρ})) = \frac{1}{ρ}(sin(θ)\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cos(θ)))=\frac{1}{ρ}(\frac{sin(θ)(ρ^2+1)}{ρ^2}-\frac{sin(θ)(ρ^2+1)}{ρ^2})=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a cada uno de los puntos de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;, es decir, serán ortogonales a un  &amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; que será igual:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Definimos como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k =\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt; &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Calculando el producto vectorial de ambos vectores:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = det\begin{pmatrix} \vec e_ρ &amp;amp; \vec e_θ &amp;amp; \vec e_z \\ 0 &amp;amp; 0 &amp;amp; 1 \\ \frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; 0  \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec v&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \vec k × \vec u = -\frac{(ρ^2+1)cos(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Si el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; tiene divergencia nula &amp;lt;math&amp;gt; ( \nabla . \vec u &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; 0 )&amp;lt;/math&amp;gt; , entonces, el vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; será irratocional &amp;lt;math&amp;gt; ( \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0 ) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Comprobando que &amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt; \vec 0: &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla × \vec v &amp;lt;/math&amp;gt;= &amp;lt;math&amp;gt;\frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{-(ρ^2+1)cos(θ)}{ρ^2} &amp;amp; ρ\frac{(ρ^2-1)sin(θ)}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}(\frac{ρ^2sin(θ)-sin(θ)}{ρ^2}-\frac{ρ^2sin(θ)-sin(θ)}{ρ^2})\vec e_z =0\vec e_z = \vec 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la función potencial, para ello definimos que:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \vec v &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \nabla ψ = \frac{∂ψ}{∂ρ} + \frac{1}{ρ}\frac{∂ψ}{∂θ} + \frac{∂ψ}{∂z} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Teniendo en cuenta que &amp;lt;math&amp;gt; \frac{∂ψ}{∂z} = 0 &amp;lt;/math&amp;gt;:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂ρ}=\frac{-(ρ^2+1)cos(θ)}{ρ^2} → ψ = -\int (\frac{-(ρ^2+1)cos(θ)}{ρ^2})∂ρ = -\frac{(ρ^2-1)cos(θ)}{ρ} + h(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\frac{1}{ρ}\frac{∂ψ}{∂θ} = \frac{1}{ρ}(\frac{∂}{∂θ}(\frac{-(ρ^2+1)cos(θ)}{ρ^2}+h(θ)) = \frac{1}{ρ}(\frac{(ρ^2-1)sin(θ)}{ρ}+h'(θ))&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora vamos a igualar &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt;  del vector &amp;lt;math&amp;gt; \vec v &amp;lt;/math&amp;gt; con el &amp;lt;math&amp;gt; \frac{∂ψ}{∂θ}&amp;lt;/math&amp;gt; calculado: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{∂ψ}{∂θ} =\frac{1}{ρ}\frac{∂ψ}{∂θ} → \frac{(ρ^2-1)sin(θ)}{ρ^2} = \frac{(ρ^2-1)sin(θ)}{ρ^2} + \frac{h'(θ)}{ρ}  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Donde podemos deducir que &amp;lt;math&amp;gt; \frac{h'(θ)}{ρ} = 0 → h'(θ) = 0 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces la función potencial &amp;lt;math&amp;gt; ψ &amp;lt;/math&amp;gt; será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ψ(ρ,θ) = -\frac{(ρ^2-1)cos(θ)}{ρ} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos observar el resultado de estas en nuestro campo con la figura 4. Para ello hemos creado este código matlab.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|derecha|Figura 4: Líneas de corriente del campo &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt; tangentes ]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%función&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
%Mallado&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Coordenadas cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Puntos de frontera==&lt;br /&gt;
Vamos a calcular los puntos de la frontera del obstáculo &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; donde el módulo de la velocidad es mayor y menor; y los puntos donde la velocidad es nula (puntos de remanso): &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dando &amp;lt;math&amp;gt; ρ=1 &amp;lt;/math&amp;gt; puesto que obstáculo rodeado por el fluido tiene radio igual a la unidad. Reemplazando en el vector &amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u(1,θ) &amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt; 2cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esta será la dirección donde se encontrarán y valor del campo en todos sus puntos. Podemos concluir que tenemos que  saber la variación del ángulo para saber los datos. Por lo que: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; -1≤cos(θ)≤1 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores máximos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= -1 → θ = 0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)=1 → θ = π &amp;lt;/math&amp;gt; &amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (1,0) y (-1,0)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tendrá valores mínimos cuando: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; cos(θ)= 0 → θ ∈ (\frac{π}{2} , \frac{3π}{2}) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Que serán los puntos &amp;lt;math&amp;gt; (0,1) y (0,-1)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Presión del fluido. Ecuación de Bernouilli==&lt;br /&gt;
La densidad del fluido es constante igual &amp;lt;math&amp;gt; d=2 &amp;lt;/math&amp;gt; y verifica la siguiente ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u| + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Se pide calular la presion siendo la &amp;lt;math&amp;gt; cte=10 &amp;lt;/math&amp;gt;: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = (\sqrt{(\frac{(ρ^2-1)sin(θ)}{ρ^2})^2+(\frac{(ρ^2+1)cos(θ)}{ρ^2})^2})^2 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = \frac{(ρ^2-1)^2sin^2(θ)}{ρ^4} + \frac{(ρ^2-1)^2cos^2(θ)}{ρ^4} = \frac{ρ^4(sin^2(θ)+cos^2(θ))+2ρ^2(cos^2(θ)-sin^2(θ))+1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recoordar que:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; sin^2(θ)+cos^2(θ) = 1 &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; cos^2(θ)-sin^2(θ) = cos(2θ) &amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; |\vec u|^2 = 1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplezando:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}d|\vec u|^2 + p = cte &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \frac{1}{2}(2)(1 + \frac{2cos(2θ)}{ρ^2} + \frac {1}{ρ^4}) + p = 10 → p = 9 - \frac{2cos(2θ)}{ρ^2} - \frac {1}{ρ^4}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Ecuación de Navier-Stokes estacionaria==&lt;br /&gt;
Estas ecuaciones pretenden modelar la evolución de las cantidades de la densidad, velocidad y presiones de un fluido, a partir de la Segunda Ley de Newton y la Ley de Conservación de masa. Esta ecuación describe la mecánica de un fluido en general.&lt;br /&gt;
&lt;br /&gt;
Partiendo de la ecuación de Bernouilli: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; d(\vec u . \nabla)\vec u + \nabla p&amp;lt;/math&amp;gt; = &amp;lt;math&amp;gt;µ\nabla\vec u &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos a considerar &amp;lt;math&amp;gt; µ = 0 &amp;lt;/math&amp;gt;, es decir, viscosidad nula y &amp;lt;math&amp;gt; \nabla . \vec u = 0 &amp;lt;/math&amp;gt; que es la condición de incompresibilidad (volumen constante). Además:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec u . \nabla)\vec u = u_j\frac{\partial u_i}{\partial x_i}\vec e_i&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\nabla\vec u = \nabla u_i . \vec e_i  &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;     &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = u_i\vec e_i &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46789</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46789"/>
				<updated>2021-12-06T11:18:34Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ve_Grad.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
&lt;br /&gt;
n =50;&lt;br /&gt;
rho = linspace(1,50,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cosθ}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; \frac{(ρ^2+1)cosθ}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cosθ}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sinθ}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z = \frac{1}{ρ}(\frac{ρ^2cosθ-cosθ}{ρ^2}-\frac{ρ^2cosθ-cosθ}{ρ^2})\vec e_z =0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sinθ}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cosθ}{ρ}) = \frac{1}{ρ}(sinθ\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cosθ)=\frac{1}{ρ}(\frac{sinθ(ρ^2+1)}{ρ^2}-\frac{sinθ(ρ^2+1)}{ρ^2}=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Ve_Grad.jpg&amp;diff=46787</id>
		<title>Archivo:Ve Grad.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Ve_Grad.jpg&amp;diff=46787"/>
				<updated>2021-12-06T11:17:06Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46786</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46786"/>
				<updated>2021-12-06T11:16:39Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Grad.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cosθ}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; \frac{(ρ^2+1)cosθ}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cosθ}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sinθ}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z = \frac{1}{ρ}(\frac{ρ^2cosθ-cosθ}{ρ^2}-\frac{ρ^2cosθ-cosθ}{ρ^2})\vec e_z =0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sinθ}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cosθ}{ρ}) = \frac{1}{ρ}(sinθ\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cosθ)=\frac{1}{ρ}(\frac{sinθ(ρ^2+1)}{ρ^2}-\frac{sinθ(ρ^2+1)}{ρ^2}=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:V_Grad.jpg&amp;diff=46783</id>
		<title>Archivo:V Grad.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:V_Grad.jpg&amp;diff=46783"/>
				<updated>2021-12-06T11:15:59Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46777</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46777"/>
				<updated>2021-12-06T11:06:48Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Número de divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
%Variables polares&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
%Mallado de las polares&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
%Mallado pasado a cartesianas&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Tan.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cosθ}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; \frac{(ρ^2+1)cosθ}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cosθ}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sinθ}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z = \frac{1}{ρ}(\frac{ρ^2cosθ-cosθ}{ρ^2}-\frac{ρ^2cosθ-cosθ}{ρ^2})\vec e_z =0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sinθ}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cosθ}{ρ}) = \frac{1}{ρ}(sinθ\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cosθ)=\frac{1}{ρ}(\frac{sinθ(ρ^2+1)}{ρ^2}-\frac{sinθ(ρ^2+1)}{ρ^2}=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46771</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46771"/>
				<updated>2021-12-06T10:58:31Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Mallado de 50 divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
f = @(rho,tht) (sin(tht).*(rho + 1./rho));&lt;br /&gt;
Grho = @(rho,tht) (sin(tht).*(1./rho - 1./(rho.^3)));&lt;br /&gt;
Gtht = @(rho,tht) (cos(tht).*(1./rho + 1./(rho.^3)));&lt;br /&gt;
fc = @(rho,tht) ((-rho + 1./rho).*cos(tht));&lt;br /&gt;
&lt;br /&gt;
n =30;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho,Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
z = f(Mrho,Mtht);&lt;br /&gt;
z2 = fc(Mrho,Mtht);&lt;br /&gt;
&lt;br /&gt;
frho = Grho(Mrho,Mtht);&lt;br /&gt;
ftht = Gtht(Mrho,Mtht);&lt;br /&gt;
fx = (frho.*x - ftht.*y);&lt;br /&gt;
fy = (frho.*y + ftht.*x);&lt;br /&gt;
&lt;br /&gt;
quiver(x,y,fx,fy);&lt;br /&gt;
hold on&lt;br /&gt;
contour(x,y,z2,n)&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:V_Tan.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cosθ}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; \frac{(ρ^2+1)cosθ}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cosθ}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sinθ}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z = \frac{1}{ρ}(\frac{ρ^2cosθ-cosθ}{ρ^2}-\frac{ρ^2cosθ-cosθ}{ρ^2})\vec e_z =0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sinθ}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cosθ}{ρ}) = \frac{1}{ρ}(sinθ\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cosθ)=\frac{1}{ρ}(\frac{sinθ(ρ^2+1)}{ρ^2}-\frac{sinθ(ρ^2+1)}{ρ^2}=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46768</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46768"/>
				<updated>2021-12-06T10:54:03Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Mallado de 50 divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación. (añadir imagen genérica del campo, sin zoom)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
[[Archivo:V_Tan.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cosθ}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; \frac{(ρ^2+1)cosθ}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cosθ}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sinθ}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z = \frac{1}{ρ}(\frac{ρ^2cosθ-cosθ}{ρ^2}-\frac{ρ^2cosθ-cosθ}{ρ^2})\vec e_z =0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sinθ}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cosθ}{ρ}) = \frac{1}{ρ}(sinθ\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cosθ)=\frac{1}{ρ}(\frac{sinθ(ρ^2+1)}{ρ^2}-\frac{sinθ(ρ^2+1)}{ρ^2}=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:V_Tan.jpg&amp;diff=46767</id>
		<title>Archivo:V Tan.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:V_Tan.jpg&amp;diff=46767"/>
				<updated>2021-12-06T10:53:36Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46766</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46766"/>
				<updated>2021-12-06T10:50:24Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Mallado de 50 divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación. (añadir imagen genérica del campo, sin zoom)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Velocidad_tangencial.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
[[Archivo:gradiente2.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cosθ}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; \frac{(ρ^2+1)cosθ}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cosθ}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sinθ}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z = \frac{1}{ρ}(\frac{ρ^2cosθ-cosθ}{ρ^2}-\frac{ρ^2cosθ-cosθ}{ρ^2})\vec e_z =0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sinθ}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cosθ}{ρ}) = \frac{1}{ρ}(sinθ\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cosθ)=\frac{1}{ρ}(\frac{sinθ(ρ^2+1)}{ρ^2}-\frac{sinθ(ρ^2+1)}{ρ^2}=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Velocidad_tangencial.jpg&amp;diff=46765</id>
		<title>Archivo:Velocidad tangencial.jpg</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Velocidad_tangencial.jpg&amp;diff=46765"/>
				<updated>2021-12-06T10:49:14Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46759</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46759"/>
				<updated>2021-12-06T10:44:32Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
%Mallado de 50 divisiones&lt;br /&gt;
n = 50;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|centro|Figura 1:Malla]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Función potencial φ ==&lt;br /&gt;
&lt;br /&gt;
===Campo de velocidades===&lt;br /&gt;
&lt;br /&gt;
La velocidad de las partículas del fluido viene dada por el gradiente de la siguiente función potencial: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; φ(ρ,θ) = (ρ + \frac{1}{ρ}) \sin(θ)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos al gradiente en coordenadas polares como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
∇φ (ρ,θ,z) =  (\frac{∂φ}{∂ρ})\vec e_ρ + \frac{1}{ρ}(\frac{∂φ}{∂θ})\vec e_θ + (\frac{∂φ}{∂z})\vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;(\frac{∂φ}{∂z})\vec e_z = 0&amp;lt;/math&amp;gt; , puesto que la función potencial no depende de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
El gradiente resultante será: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇φ(ρ,θ) = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
De esta manera obtenemos el campo de velocidades &amp;lt;math&amp;gt; ∇φ &amp;lt;/math&amp;gt; , el cual podemos observar más detenidamente en la figura 2, hecha con el código matlab que vemos a continuación. (añadir imagen genérica del campo, sin zoom)&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.jpg|miniaturadeimagen|derecha|Figura 2: Campo de velocidad del fluido]]&lt;br /&gt;
&lt;br /&gt;
=== Vector gradiente perpendicular a las curvas de nivel de la función potencial ===&lt;br /&gt;
&lt;br /&gt;
En la figura 3 hemos realizado un zoom de la imagen anterior, observando que el vector gradiente es perpendicular a las curvas de nivel de la función potencial, ya que el gradiente nos indica el vector dirección de máxima pendiente de la función en todo su dominio.&lt;br /&gt;
[[Archivo:gradiente2.jpg|miniaturadeimagen|derecha|Figura 3: Vectores del campo de velocidad del fluido perpendiculares]]&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Comprobación ===&lt;br /&gt;
&lt;br /&gt;
Si denotamos &amp;lt;math&amp;gt;\vec n &amp;lt;/math&amp;gt; como el vector normal a los puntos de la función, podemos comprobar que el producto escalar del &amp;lt;math&amp;gt;\vec n . ∇φ = 0 &amp;lt;/math&amp;gt; &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n = \vec e_z &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec u =  ∇φ = \frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2} &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec n . \vec u = (0\vec e_ρ + 0\vec e_θ + 1\vec e_z).(\frac{(ρ^2-1)sinθ}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cosθ}{ρ^2}\vec e_θ + 0.\vec e_z) = 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto muestra que el campo de velocidades es perpendicular a la normal del flujo. &lt;br /&gt;
&lt;br /&gt;
==Vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; en coordenadas cartesianas==&lt;br /&gt;
&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; \frac{1}{ρ}&amp;lt;/math&amp;gt; es despreciable hacemos el cambio de coordenadas de cilíndricas a cartesianas, obteniendo: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u = \frac{(ρ^2-1)sin(θ)}{ρ^2}\vec e_ρ + \frac{(ρ^2+1)cos(θ)}{ρ^2} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
También se puede escribir como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = \frac{(ρ - \frac{1}{ρ})sin(θ)}{ρ}\vec e_ρ + \frac{(ρ + \frac{1}{ρ})cos(θ)}{ρ}\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sabiendo que  &amp;lt;math&amp;gt; \frac{1}{ρ}=0&amp;lt;/math&amp;gt; y simplificando queda: &amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec u = sin(θ)\vec e_ρ + cos(θ)\vec e_θ &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Recordamos que para hacer una cambio de coordenadas de cilíndricas a cartesianas también tenemos que cambiar la base:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; (\vec e_ρ,\vec e_θ,\vec e_z) → (\vec i,\vec j, \vec k)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec i = (cos(θ)\vec e_ρ - sin(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec j = (sin(θ)\vec e_ρ +cos(θ)\vec e_θ) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec k = \vec e_z &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos observar, el vector &amp;lt;math&amp;gt;\vec u &amp;lt;/math&amp;gt; es el vector &amp;lt;math&amp;gt;\vec j &amp;lt;/math&amp;gt; en coordenadas cartesianas:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \vec u&amp;lt;/math&amp;gt;&amp;lt;math&amp;gt;(x_1,x_2,x_3)&amp;lt;/math&amp;gt;=&amp;lt;math&amp;gt;\vec j&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Rotacional y Divergencia del vector &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
===Rotacional de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos el rotacional de un campo vectorial en coordenadas cilindricas como:&amp;lt;br/r&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ u_ρ &amp;amp; ρu_θ &amp;amp; u_z \end{pmatrix}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Reemplazando podemos calcular el rotacional:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇×\vec u = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; ρ\frac{(ρ^2+1)cosθ}{ρ^2} &amp;amp; 0 \end{pmatrix} = \frac{1}{ρ}det\begin{pmatrix} \vec{e_ρ} &amp;amp; ρ\vec{e_θ} &amp;amp; \vec{e_z} \\ \frac{∂}{∂ρ} &amp;amp; \frac{∂}{∂θ} &amp;amp; \frac{∂}{∂z} \\ \frac{(ρ^2-1)sinθ}{ρ^2} &amp;amp; \frac{(ρ^2+1)cosθ}{ρ} &amp;amp; 0 \end{pmatrix} &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂θ}(0)-\frac{∂}{∂z}(\frac{(ρ^2+1)cosθ}{ρ})]\vec e_ρ+[\frac{∂}{∂ρ}(0)-\frac{∂}{∂z}(\frac{(ρ^2-1)sinθ}{ρ^2})]ρ\vec e_θ +[\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; ∇×\vec u = \frac{1}{ρ}([\frac{∂}{∂ρ}(\frac{(ρ^2+1)cosθ}{ρ})-\frac{∂}{∂θ}(\frac{(ρ^2-1)sinθ}{ρ^2})]\vec e_z = \frac{1}{ρ}(\frac{ρ^2cosθ-cosθ}{ρ^2}-\frac{ρ^2cosθ-cosθ}{ρ^2})\vec e_z =0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇×\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Divergencia de &amp;lt;math&amp;gt;\vec u&amp;lt;/math&amp;gt;===&lt;br /&gt;
&lt;br /&gt;
Definimos divergencia de un de un campo vectorial como:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρu_ρ)+\frac{∂}{∂θ}(u_θ)+\frac{∂}{∂z}(ρu_z)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
Reemplazando obtenemos:&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;∇.\vec u =\frac{1}{ρ}(\frac{∂}{∂ρ}(ρ\frac{(ρ^2-1)sinθ}{ρ^2})+\frac{∂}{∂θ}(\frac{(ρ^2+1)cosθ}{ρ}) = \frac{1}{ρ}(sinθ\frac{∂}{∂ρ}(\frac{(ρ^2-1)}{ρ})+\frac{(ρ^2+1)}{ρ}\frac{∂}{∂θ}(cosθ)=\frac{1}{ρ}(\frac{sinθ(ρ^2+1)}{ρ^2}-\frac{sinθ(ρ^2+1)}{ρ^2}=0 &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concluimos que &amp;lt;math&amp;gt;∇.\vec u=0&amp;lt;/math&amp;gt;&amp;lt;br/r&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46533</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46533"/>
				<updated>2021-12-04T17:26:03Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Introducción. ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido. ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
n = 50;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|derecha|Figura 1:Malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46532</id>
		<title>Visualización de campos escalares y vectoriales en fluidos (Grupo A9)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_fluidos_(Grupo_A9)&amp;diff=46532"/>
				<updated>2021-12-04T17:24:02Z</updated>
		
		<summary type="html">&lt;p&gt;MarinaLM: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 9-A | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Jesús Doldán Martínez&amp;lt;br/&amp;gt;Marina Lancho Mora&amp;lt;br/&amp;gt;William Joel Solorzano Farfan&amp;lt;br/&amp;gt;Adrian Sebastian Villarroel Zamudio }} &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Introducción ==&lt;br /&gt;
&lt;br /&gt;
Definimos fluido como medio continuo cuyas fuerzas internas se oponen a la interpretación, pero no a la separación, de la materia y no ofrece resistencia al deslizamiento interno mientras este no se produce. Este mismo es incompresible cuando su densidad no es alterada en el tiempo y tiene la capacidad de oponerse a la compresión de si mismo bajo cualquier condición. En el siguiente trabajo expondremos el comportamiento del flujo de un fluido incompresible alrededor de un obstáculo circular mediante la ayuda de sus campos escalares y vectoriales, funciones que permiten modelizar el fluido en cuestión. El campo escalar nos permite asignar a cada punto de nuestro dominio un valor escalar, mientras que el campo vectorial otorga un vector a cada punto del dominio.&lt;br /&gt;
&lt;br /&gt;
== Representación de los puntos interiores de la región ocupada por un fluido ==&lt;br /&gt;
&lt;br /&gt;
Consideramos que nuestro fluido se encuentra en un recinto circular de radio 5 unidades con respecto al origen y que nuestro obstáculo circular es de radio= 1 unidad, también con respecto al centro de coordenadas. Visualizamos este recinto en los ejes definidos, [-5,5] x [-5,5], con ayuda del programa '''MATLAB'''. Para ello hemos realizado un mallado circular en coordenadas polares empleando el lenguaje m, obteniendo así el resultado de la figura 1.&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
n = 50;&lt;br /&gt;
rho = linspace(1,5,n);&lt;br /&gt;
tht = linspace(0,2*pi,n);&lt;br /&gt;
[Mrho, Mtht] = meshgrid(rho,tht);&lt;br /&gt;
&lt;br /&gt;
x = Mrho.*cos(Mtht);&lt;br /&gt;
y = Mrho.*sin(Mtht);&lt;br /&gt;
mesh(x,y,0*x);&lt;br /&gt;
axis([-5,5,-5,5]);&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Región.jpg|miniaturadeimagen|derecha|Figura 1:Malla]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Grado en Ingeniería Civil y Territorial]]&lt;/div&gt;</summary>
		<author><name>MarinaLM</name></author>	</entry>

	</feed>