<?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=M%C2%AA+Elena+P%C3%A9rez+Fern%C3%A1ndez</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=M%C2%AA+Elena+P%C3%A9rez+Fern%C3%A1ndez"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/M%C2%AA_Elena_P%C3%A9rez_Fern%C3%A1ndez"/>
		<updated>2026-05-01T21:24:30Z</updated>
		<subtitle>Contribuciones del usuario</subtitle>
		<generator>MediaWiki 1.26.2</generator>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44068</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44068"/>
				<updated>2019-12-10T10:11:17Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 6 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC19/20|2019-20]] | Mª Elena Pérez Fernández, Andrea Moya Pérez, Alberto de Vera Nuñez, Alfonso Vázquez Rodríguez}}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de 9,91&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC19/20]]&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44067</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44067"/>
				<updated>2019-12-10T09:54:43Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión media del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 6 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC19/20|2019-20]] | Mª Elena Pérez Fernández, Andrea Moya Pérez, Alberto de Vera Nuñez, Alfonso Vázquez Rodríguez}}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de 9,91&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44066</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44066"/>
				<updated>2019-12-10T08:59:49Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión media del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 6 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC19/20|2019-20]] | Mª Elena Pérez Fernández, Andrea Moya Pérez, Alberto de Vera Nuñez, Alfonso Vázquez Rodríguez}}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de 3,629&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44062</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=44062"/>
				<updated>2019-12-09T12:19:13Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 6 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC19/20|2019-20]] | Mª Elena Pérez Fernández, Andrea Moya Pérez, Alberto de Vera Nuñez, Alfonso Vázquez Rodríguez}}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de 7,629&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43988</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43988"/>
				<updated>2019-12-05T19:04:32Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 6 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC19/20|2019-20]] | Mª Elena Pérez Fernández, Elena Moya Pérez, Alberto de Vera Nuñez, Alfonso Vázquez Rodríguez}}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de 7,629&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43987</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43987"/>
				<updated>2019-12-05T19:03:48Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 6 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC16/17|2016-17]] | Mª Elena Pérez Fernández, Elena Moya Pérez, Alberto de Vera Nuñez, Alfonso Vázquez Rodríguez}}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de 7,629&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43986</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43986"/>
				<updated>2019-12-05T18:59:33Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión media del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de 7,629&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43985</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43985"/>
				<updated>2019-12-05T18:47:08Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Teorema de Kutta-Joukowski.Paradoja D´Alembert */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo: ''(ρ=2,θ=t,z=0,t€(0,2π)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43984</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43984"/>
				<updated>2019-12-05T18:45:44Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Teorema de Kutta-Joukowski.Paradoja D´Alembert */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
ρ=2&lt;br /&gt;
θ=t      t€(0,2π)&lt;br /&gt;
z=0&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43980</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43980"/>
				<updated>2019-12-05T18:10:39Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión media del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Con la aplicación de este código, podemos calcular el valor medio de presión, con lo que obtenemos un valor de&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43979</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43979"/>
				<updated>2019-12-05T18:07:31Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Curvas de nivel de presión */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores, al rodear al objeto las presiones se ven disminuidas. Teniendo esto en cuenta, y el intervalo en el que trabajamos, podemos deducir el siguiente código para escribir las curvas de nivel:&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2+(1+1/p.^2).*(cos(V).^2)/(p.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43976</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43976"/>
				<updated>2019-12-05T18:04:26Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Curvas de nivel de presión */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como se ha demostrado en apartados anteriores la &lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43974</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43974"/>
				<updated>2019-12-05T18:02:56Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Curvas de nivel de presión */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43973</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43973"/>
				<updated>2019-12-05T18:01:19Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Líneas de corriente */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
=='''Líneas de corriente'''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43972</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43972"/>
				<updated>2019-12-05T17:59:54Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Líneas de corriente */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|400x400px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43970</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43970"/>
				<updated>2019-12-05T17:58:02Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Líneas de corriente */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|550x550px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|350x350px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43967</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43967"/>
				<updated>2019-12-05T17:54:30Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Líneas de corriente */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|350x350px|centr0]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43966</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43966"/>
				<updated>2019-12-05T17:51:44Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Ecuación de Navier-Stokes */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43965</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43965"/>
				<updated>2019-12-05T17:50:32Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Ecuación de Navier-Stokes */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|250x250px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuación.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43964</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43964"/>
				<updated>2019-12-05T17:49:14Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión del fluido. Ecuación de bernouilli */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43963</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43963"/>
				<updated>2019-12-05T17:48:18Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión del fluido. Ecuación de bernouilli */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43962</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43962"/>
				<updated>2019-12-05T17:47:06Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión del fluido. Ecuación de bernouilli */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|500x500px|centro]]&lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43961</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43961"/>
				<updated>2019-12-05T17:45:28Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión del fluido. Ecuación de bernouilli */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntos alcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43960</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43960"/>
				<updated>2019-12-05T17:43:20Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Velocidades máxima y mínima en frontera del obstáculo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43959</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43959"/>
				<updated>2019-12-05T17:32:56Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Velocidades máxima y mínima en frontera del obstáculo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|750x750px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43958</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43958"/>
				<updated>2019-12-05T17:32:26Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Velocidades máxima y mínima en frontera del obstáculo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43957</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43957"/>
				<updated>2019-12-05T17:31:22Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Velocidades máxima y mínima en frontera del obstáculo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43956</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43956"/>
				<updated>2019-12-05T17:30:58Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Lineas de corriente del campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|500x500px| centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43955</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43955"/>
				<updated>2019-12-05T17:30:14Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Lineas de corriente del campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43954</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43954"/>
				<updated>2019-12-05T17:29:11Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Lineas de corriente del campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
 &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43953</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43953"/>
				<updated>2019-12-05T17:28:44Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Demostración de divergencia nula */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|100x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43952</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43952"/>
				<updated>2019-12-05T17:27:45Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Demostración de rotacional y divergencia nulos */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|450x450px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43951</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43951"/>
				<updated>2019-12-05T17:26:33Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Demostración de rotacional y divergencia nulos */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|350x350px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto.&lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43950</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43950"/>
				<updated>2019-12-05T17:25:55Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Caso particular */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43949</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43949"/>
				<updated>2019-12-05T17:25:37Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Gradiente ortogonal a superficies de nivel */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|280x280px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43948</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43948"/>
				<updated>2019-12-05T17:25:16Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Gradiente ortogonal a superficies de nivel */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43947</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43947"/>
				<updated>2019-12-05T17:24:39Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Gradiente ortogonal a superficies de nivel */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43946</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43946"/>
				<updated>2019-12-05T17:24:01Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Campo de velocidades de un fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43945</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43945"/>
				<updated>2019-12-05T17:23:33Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Campo de velocidades de un fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43944</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43944"/>
				<updated>2019-12-05T17:22:46Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Campo de velocidades de un fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43943</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43943"/>
				<updated>2019-12-05T17:21:59Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Campo de velocidades de un fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                           Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
                                          obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43942</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43942"/>
				<updated>2019-12-05T17:21:11Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Región ocupada por un fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|400x400px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43941</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43941"/>
				<updated>2019-12-05T17:20:36Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Región ocupada por un fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|600x600px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43939</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43939"/>
				<updated>2019-12-05T17:11:15Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Curvas de nivel de presión */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|700x700px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43938</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43938"/>
				<updated>2019-12-05T17:10:50Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión media del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|700x700px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2)+(1-1-1/p.^2).*(cos(V).^2)/(p.^2));&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-(1-1/ro.^2).^2*sin(teta).^2+(1+1/ro.^2).*(cos(teta).^2)/(ro.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43934</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43934"/>
				<updated>2019-12-05T16:29:33Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión media del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|700x700px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2)+(1-1-1/p.^2).*(cos(V).^2)/(p.^2));&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=p=10-(1-1/p.^2).^2*sin(V).^2)+(1-1-1/p.^2).*(cos(V).^2)/(p.^2));&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43933</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43933"/>
				<updated>2019-12-05T16:28:45Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Presión media del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|700x700px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2)+(1-1-1/p.^2).*(cos(V).^2)/(p.^2));&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 h=0.01;&lt;br /&gt;
 ro=1:h:5;&lt;br /&gt;
 teta=0:h:2*pi;&lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Presión del fluido&lt;br /&gt;
p=10-((sin(V).^2)).*((1-(1./(U.^2))))-((((cos(V)).^2)).*(((1./U)+(1./(U.^3))).^2)).*(U.^2);&lt;br /&gt;
%Integral de la presión&lt;br /&gt;
 pres=U.*p;&lt;br /&gt;
 %Integral&lt;br /&gt;
 volumen=h^2*pres;&lt;br /&gt;
 w=sum(sum(volumen));&lt;br /&gt;
 %Área de la corona circular&lt;br /&gt;
 area=(pi*5^2)-(pi*1^2);&lt;br /&gt;
 %Presión media &lt;br /&gt;
 presmedia=w/área&lt;br /&gt;
}}&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de '''8.9444''' que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43928</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43928"/>
				<updated>2019-12-05T16:22:51Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Curvas de nivel de presión */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|700x700px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Teorema de Kutta-Joukowski.Paradoja D´Alembert'''==&lt;br /&gt;
&lt;br /&gt;
El Teorema Kutta-Joukowski es un teorema perteneciente a la aerodinámica. Se trata de un teorema que relaciona la fuerza que ejerce un fluido con su circulación a lo largo del cuerpo. La circulación  es la integral de línea de la velacidad del fluido, en una curva cerrada que contiene al cuerpo. En las descripciones de dicho teorema, tomó como sólido un cilindro circular. &lt;br /&gt;
&lt;br /&gt;
En resumen podemos decir que este teorema concluye que la fuerza que ejerce el fluido sobre el obstáculo es proporcional a la circulación.&lt;br /&gt;
Por otro lado la Paradoja de D´Alembert es una contradicción a la que se llegó tras estudiar matemáticamente el fenómeno de la resistencia producida sobre un cuerpo cuando una corriente de fluido (líquido o gas) circula sobre él.&lt;br /&gt;
D'Alembert aplicó la teoría de flujo potencial para modelar el fenómeno, y concluyó que la fuerza resultante sobre el cuerpo es cero, lo cual se contradice con la observación.&lt;br /&gt;
&lt;br /&gt;
En nuestro caso, empezaremos parametrizando el obstáculo:&lt;br /&gt;
[[Archivo:1.png|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Calculamos la circulación en el intervalo (a,b)=(0,2π):&lt;br /&gt;
&lt;br /&gt;
[[Archivo:10yo.png|miniaturadeimagen|centro]]&lt;br /&gt;
[[Archivo:4.png|600px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Obtenemos el resultado de que la circulación es nula. Esto va en contra de la intuición ya que se supone que el fluido debería ejercer una fuerza sobre el obstáculo, pero aplicando el Teorema de Kutta-Joukowski, llegamos a la conclusión de que la fuerza es nula también. Encontrándonos con la conocida Paradoja D'Alembert.&lt;br /&gt;
&lt;br /&gt;
==''Curvas de nivel de presión''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 %Reticula&lt;br /&gt;
 ro=1:0.1:5; &lt;br /&gt;
 teta=0:0.1:2*pi; &lt;br /&gt;
[U,V]=meshgrid(ro,teta);&lt;br /&gt;
%Cambio de coordenadas  &lt;br /&gt;
 X=U.*cos(V);&lt;br /&gt;
Y=U.*sin(V); &lt;br /&gt;
 %Formula de la presión&lt;br /&gt;
 p=10-(1-1/p.^2).^2*sin(V).^2)+(1-1-1/p.^2).*(cos(V).^2)/(p.^2));&lt;br /&gt;
 %Dibujo de las curvas de nivel&lt;br /&gt;
 contour(X,Y,p,50,'linewidth',1.5)&lt;br /&gt;
 axis([-5,5-5,5])&lt;br /&gt;
 axis equal&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de 8.9444 que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43920</id>
		<title>Visualización de campos escales y vectoriales en fluidos.6/19</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escales_y_vectoriales_en_fluidos.6/19&amp;diff=43920"/>
				<updated>2019-12-05T16:06:37Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: /* Ecuación de Navier-Stokes */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;En el artículo desarrollado a continuación se estudiará el flujo de un fluido incompresible alrededor de un obstáculo con forma circular. Trabajaremos en el plano con coordenadas cilíndricas (polares ya que se reduce al plano),ya que debido a la forma del obstáculo, los cálculos nos resultarán más sencillos. Las gráficas que mostraremos, fueron obtenidas con el programa de MATLAB/OCTAVE:&lt;br /&gt;
       &lt;br /&gt;
{| class=&amp;quot;wikitable&amp;quot;&lt;br /&gt;
|-&lt;br /&gt;
! Texto de encabezado !! Texto de encabezado&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|-&lt;br /&gt;
| Ejemplo || Ejemplo&lt;br /&gt;
|}&lt;br /&gt;
=='''Introducción'''==&lt;br /&gt;
Antes de comenzar con el desarrollo del ejercicio, en necesario explicar qué es un fluido incompresible. Un fluido incompresible es todo aquel cuya masa y volumen no sufren variaciones, por lo que permanecen constantes en el tiempo, es decir, se opone a las compresiones ofrecidas bajo cualquier condición o circunstancia. En términos matemáticos, lo que esto significa es que dicho fluido tendrá densidad constante, lo que facilitará las operaciones por homogeneidad de sus propiedades en cualquier posición.&lt;br /&gt;
=='''Región ocupada por un fluido'''==&lt;br /&gt;
Para la representación del fluido utilizamos coordenadas polares con los límites establecidos en el enunciado.&lt;br /&gt;
&lt;br /&gt;
                       ''x=u*cos(v)&lt;br /&gt;
                       y=u*sin(v)''&lt;br /&gt;
El código para esta representación es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Pitu1.jpg|700x700px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Sdfhkwhf.png|500x500px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Campo de velocidades de un fluido'''==&lt;br /&gt;
Sabiendo que estamos ante un campo escalar en coordenadas cilíndricas, el cálculo del gradiente lo realizaremos a partir de:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jghtytytytytyty.png|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y conociendo&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ssssssssssssssssssssssss.png|210x100px|centro]]&lt;br /&gt;
&lt;br /&gt;
obtenemos:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Tttttttttttt.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Representamos la función potencial (de esta ahora vamos a presentar solo las curvas de nivel para poder observar en relación a las velocidades)&lt;br /&gt;
&lt;br /&gt;
                          &lt;br /&gt;
[[Archivo:Trabajoelena1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Y la función gradiente de ϕ que representa el campo de velocidades del fluido &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ooooooooooo.png|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena3.jpg|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Observamos en el gráfico que nos salen ortogonales a las curvas de nivel ϕ&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena4.jpg|250x250px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Gradiente ortogonal a superficies de nivel'''==&lt;br /&gt;
La ecuación nos muestra el producto escalar de dos vectores. Como este es igual a cero quiere decir que los vectores son perpendiculares.&lt;br /&gt;
''u'' es el vector gradiente y ''n'' es el vector perpendicular a las curvas de nivel como podemos deducir del enunciado. Lo que interpretamos de esta ecuación una vez conocidos los vectores, es que el gradiente es ortogonal a las superficies de nivel.&lt;br /&gt;
Para demostrarlo, vamos a comprobar que el ''∇f(ρ,θ,z)'' es ortogonal a cualquier curva contenida en la superficie.&lt;br /&gt;
Consideramos un punto P de la superficie de nivel S: ''''f(ρ,θ,z)''= K y c(t)'' la parametrización de una curva. Se cumple que:&lt;br /&gt;
&lt;br /&gt;
                       &lt;br /&gt;
[[Archivo:Rtrtrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
Puesto que hemos dicho que la curva está contenida en la superficie.&lt;br /&gt;
Si derivamos, la expresión anterior respecto de t usando la regla de la cadena, tenemos que:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Rtrtrtrtrtrtrtrtrtrtrtrrtrtrt.png|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto significa que ∇f es ortogonal al vector tangente a la curva ''c'', es decir, es ortogonal a la curva. Como hemos trabajado de forma genérica, queda demostrado que el ∇f es ortogonal a todas las curvas de la superficie y, por tanto, es ortogonal a S.&lt;br /&gt;
===Caso particular===&lt;br /&gt;
Nos dicen que ''ρ'' es muy grande, y que por lo tanto, ''1/ρ≈0''. En este caso, ''u'' tendrá el siguiente valor:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Parparapraprpaprar.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Demostración de rotacional y divergencia nulos'''==&lt;br /&gt;
===''Rotacional nulo''===&lt;br /&gt;
Comprobamos analíticamente que el rotacional de ''u'' es nulo, el rotacional es el determinante de la siguiente matriz:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena5.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En nuestro caso al venir la función vectorial del gradiente de una función escalar, el rotacional sería:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena6.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
De manera que hacer el determinante se anula de la siguiente manera&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena007.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===''Demostración de divergencia nula''===&lt;br /&gt;
                   &lt;br /&gt;
[[Archivo:Hjhjhjhjhjhjhjhj.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Sabiendo que&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Gtgtgtgt.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
realizamos el cálculo:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Hthththththhtht.png|500x500px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Como nos dicen que esto es igual a cero:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Yyyyyyyyyyyyyyyyyyyyy.png|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Simplificamos y llegamos a una igualdad y por tanto se verifica lo propuesto. &lt;br /&gt;
&lt;br /&gt;
==''Lineas de corriente del campo''==&lt;br /&gt;
Ahora vamos a dibujar las lineas de corriente ''v'', que van ser tangentes de ''u''. Para ello calculamos el campo que en cada punto es ortogonal a ''u:v = k x u'' &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena8.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena9.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena10.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
También necesitaremos la función de la corriente ψ que es la potencial de ''v'':&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena11.jpg|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Dibujaremos la función potencial inicial, la nueva función potencial que representa la corriente, las velocidades y sus ortogonales:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Jjjjjjjjjjjjjjjjjjjjjjjjj.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena12.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Velocidades máxima y mínima en frontera del obstáculo'''==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ggggggggggggggggg.png|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
                                vmax=2&lt;br /&gt;
                                vmin=0.0248&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena13.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora dibujamos las líneas de nivel para observar los puntos de remanso, donde la velocidad es nula, con ''contour(x,y,t)''&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Trabajoelena14.jpg|300x300px|]]&lt;br /&gt;
&lt;br /&gt;
=='''Presión del fluido. Ecuación de bernouilli'''==&lt;br /&gt;
Suponiendo que la densidad de flujo es constante d=2 y verificando la ecuación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto1.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nos pide calcular la presión dando el valor 10 a la constante, dibujarla y en que puntosalcanza al mayor y menor valor.&lt;br /&gt;
&lt;br /&gt;
Tenemos que el campo es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto2.jpg|150x150px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
despejando P en la ecuación de arriba nos queda: P=10-|u|^2, donde:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto3.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Por lo tanto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto4.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto5.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Puntos donde se alcanza la mayor y menor presión:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto6.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Comparándolo con los puntos donde se alcanza mayor y menor velocidad:&lt;br /&gt;
La velocidad será mínima cuando la presión sea máxima y viceversa&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Las gráficas conseguidas son:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto7.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto8.PNG|300x300px|centro]]&lt;br /&gt;
&lt;br /&gt;
=='''Ecuación de Navier-Stokes'''==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto9.PNG|150x150px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Haremos el gradiente de: ''1/2*d|u| + P = cte'', de esa forma demostraremos que cumple la ecuacion.&lt;br /&gt;
&lt;br /&gt;
Que el gradiente sea lineal, quiere decir:&lt;br /&gt;
[[Archivo:Alberto10 (1).PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por lo que:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto11.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
De esta manera queda demostrado que cumple la ecuación de Navier-Stokes.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==''Líneas de corriente''==&lt;br /&gt;
&lt;br /&gt;
Las líneas de corriente son tangentes a la velocidad.&lt;br /&gt;
Para poder dibujarlas primero calculamos el vector perpendicular a ''u:v=k x u''&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto12.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
Por ser la divergencia nula como se ha dicho en el apartado anterior, el rotacional será 0.&lt;br /&gt;
&lt;br /&gt;
Calculamos la función potencial φ:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto13.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto14.PNG|200x200px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
Comprobación:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto15.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora lo dibujamos, el código utilizado es:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto16.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto17.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
También tenemos la presión:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto18.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
Módulo de la velocidad:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ffffffffffffffffffff.png|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto19.PNG|200x200px|izquierda]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Alberto20.PNG|200x200px|centro]]&lt;br /&gt;
&lt;br /&gt;
¿Cómo cambia la velocidad y presión al rodear al obstáculo?&lt;br /&gt;
 La presión y la velocidad bajan.&lt;br /&gt;
&lt;br /&gt;
=='''Curvas de nivel de presión'''==&lt;br /&gt;
Como anteriormente hemos observado, los máximos valores para la presión los encontramos en la zona superior e inferior del óbstaculo, correspondiéndose con las zonas de menor velocidad. Mientras que en los laterales las líneas son de un color azul que equivale a valores más bajos de la presión, justo donde las corrientes se alejan del obstáculo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=='''Presión media del fluido'''==&lt;br /&gt;
&lt;br /&gt;
Vamos a calcular la presión media del fluido. Para ello se hará un aaproximacion de la integral de la presion y lo dividiremos entre el área de la región que ocupa el fluido. En este caso es el área de una corona circular de radios 1 y 5. Realizamos la aproximación de la presión mediante Matlab:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Realizando estos cálculos obtenemos un resultado de 8.9444 que si contrastamos con una de las gráficas de la presión podemos ver que concuerda, ya que en la gráfica a simple vista se observa como los valores medios rondan este valor.&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Alberto20.PNG&amp;diff=43914</id>
		<title>Archivo:Alberto20.PNG</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Alberto20.PNG&amp;diff=43914"/>
				<updated>2019-12-05T16:03:40Z</updated>
		
		<summary type="html">&lt;p&gt;Mª Elena Pérez Fernández: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Mª Elena Pérez Fernández</name></author>	</entry>

	</feed>