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

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65251</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65251"/>
				<updated>2023-12-15T10:10:02Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Velocidad Máxima del Fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad. Vemos también como el máximo de la velocidad se alcanza en &amp;lt;math&amp;gt;\rho={0}&amp;lt;/math&amp;gt;, en el eje de la tubería tomando un valor de &amp;lt;math&amp;gt;{3}&amp;lt;/math&amp;gt; y que disminuye según nos acercamos a las paredes de la tubería donde la velocidad se hace nula.&lt;br /&gt;
[[Archivo:Modulovelocidad5.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65247</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65247"/>
				<updated>2023-12-15T10:08:52Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Velocidad Máxima del Fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad. Vemos también como el máximo de la velocidad se alcanza en &amp;lt;math&amp;gt;\rho={0}&amp;lt;/math&amp;gt;, en el eje de la tubería tomando un valor de &amp;lt;math&amp;gt;{3}&amp;lt;/math&amp;gt; y que disminuye según nos acercamos a las paredes de la tubería.&lt;br /&gt;
[[Archivo:Modulovelocidad5.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65246</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65246"/>
				<updated>2023-12-15T10:08:23Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Velocidad Máxima del Fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad. Vemos también como el máximo de la velocidad se alcanza en &amp;lt;math&amp;gt;\rho={0}&amp;lt;/math&amp;gt;, en el eje de la tubería tomando un valor de {3} y que disminuye según nos acercamos a las paredes de la tubería.&lt;br /&gt;
[[Archivo:Modulovelocidad5.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65217</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65217"/>
				<updated>2023-12-15T09:59:11Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Líneas de Corriente del Campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad. Vemos también como el máximo de la velocidad se alcanza en &amp;lt;math&amp;gt;\rho={0}&amp;lt;/math&amp;gt;, en el eje de la tubería y que disminuye según nos acercamos a las paredes de la tubería.&lt;br /&gt;
[[Archivo:Modulovelocidad5.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65213</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65213"/>
				<updated>2023-12-15T09:58:01Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Velocidad Máxima del Fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad. Vemos también como el máximo de la velocidad se alcanza en &amp;lt;math&amp;gt;\rho={0}&amp;lt;/math&amp;gt;, en el eje de la tubería y que disminuye según nos acercamos a las paredes de la tubería.&lt;br /&gt;
[[Archivo:Modulovelocidad5.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Modulovelocidad5.JPG&amp;diff=65212</id>
		<title>Archivo:Modulovelocidad5.JPG</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Modulovelocidad5.JPG&amp;diff=65212"/>
				<updated>2023-12-15T09:57:28Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65210</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65210"/>
				<updated>2023-12-15T09:57:11Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Velocidad Máxima del Fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad. Vemos también como el máximo de la velocidad se alcanza en &amp;lt;math&amp;gt;\rho={0}&amp;lt;/math&amp;gt;, en el eje de la tubería y que disminuye según nos acercamos a las paredes de la tubería.&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,5])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65207</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65207"/>
				<updated>2023-12-15T09:54:18Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Velocidad Máxima del Fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad. Vemos también como el máximo de la velocidad se alcanza en &amp;lt;math&amp;gt;\rho={0}&amp;lt;/math&amp;gt;, en el eje de la tubería y que disminuye según nos acercamos a las paredes de la tubería.&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65193</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65193"/>
				<updated>2023-12-15T09:49:53Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Velocidad Máxima del Fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
En la gráfica podemos observar el comportamiento del módulo de la velocidad.&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65164</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65164"/>
				<updated>2023-12-15T09:41:49Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65158</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65158"/>
				<updated>2023-12-15T09:40:33Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Mallado de la sección transversal de la tubería */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería cilíndrica de radio 2 &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65155</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65155"/>
				<updated>2023-12-15T09:39:18Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65153</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65153"/>
				<updated>2023-12-15T09:38:44Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65150</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65150"/>
				<updated>2023-12-15T09:37:24Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Mallado de la sección transversal de la tubería */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65149</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65149"/>
				<updated>2023-12-15T09:37:06Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65147</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65147"/>
				<updated>2023-12-15T09:36:32Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos qué puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65146</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65146"/>
				<updated>2023-12-15T09:36:09Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65144</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65144"/>
				<updated>2023-12-15T09:35:32Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
[[Archivo:Leydepoiseuille.JPG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Leydepoiseuille.JPG&amp;diff=65142</id>
		<title>Archivo:Leydepoiseuille.JPG</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Leydepoiseuille.JPG&amp;diff=65142"/>
				<updated>2023-12-15T09:34:49Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65132</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65132"/>
				<updated>2023-12-15T09:30:39Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65130</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65130"/>
				<updated>2023-12-15T09:30:07Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Gradiente de la Temperatura */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65101</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65101"/>
				<updated>2023-12-15T09:22:12Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65100</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65100"/>
				<updated>2023-12-15T09:21:50Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65098</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65098"/>
				<updated>2023-12-15T09:21:40Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|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;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65097</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65097"/>
				<updated>2023-12-15T09:21:24Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]] [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|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;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65095</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65095"/>
				<updated>2023-12-15T09:20:57Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|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;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65093</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65093"/>
				<updated>2023-12-15T09:20:39Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|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;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65092</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65092"/>
				<updated>2023-12-15T09:20:08Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|derecha]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65091</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65091"/>
				<updated>2023-12-15T09:19:41Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Temperatura del fluido */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|izquierda]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|derecha]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65086</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65086"/>
				<updated>2023-12-15T09:18:28Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Representación del campo de presiones y velocidades */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65085</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65085"/>
				<updated>2023-12-15T09:18:12Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65083</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65083"/>
				<updated>2023-12-15T09:17:07Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65081</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65081"/>
				<updated>2023-12-15T09:16:35Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. &lt;br /&gt;
&lt;br /&gt;
Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. &lt;br /&gt;
&lt;br /&gt;
Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65080</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65080"/>
				<updated>2023-12-15T09:15:24Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
Por último calcularemos el caudal que pasa por la sección transversal de la tubería.&lt;br /&gt;
Destacar que hemos utilizado el programa Matlab para la representación del mallado y de los gráficos que aparecen en los distintos apartados del trabajo.&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65077</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65077"/>
				<updated>2023-12-15T09:11:10Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. Conociendo la función por la que viene dada la velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt; representaremos los gráficos respectivos al comportamiento de la velocidad y la presión de la tubería. Además veremos que puntos del campo tienen mayor rotacional y observaremos también los máximos de la temperatura en la tubería, dada por el campo: &amp;lt;math&amp;gt;T\left (\rho,\theta,z\right)=log\left(1+\rho\right)e^\left(-\left(z-2\right)^{2}\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65069</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65069"/>
				<updated>2023-12-15T09:02:53Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Introducción */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
La ley de Poiseuille es la ley que permite determinar el flujo laminar estacionario de un líquido incompresible.&lt;br /&gt;
En este caso, vamos a considerar el flujo de una tubería cilíndrica de radio 2, suponiendo que está centrada en el eje OZ. Conociendo la función por la que viene dada la velocidad &amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}},&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; y la presión &amp;lt;math&amp;gt;p\left(x,y\right)&amp;lt;/math&amp;gt; que viene dada por&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1)/{2}.&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65061</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=65061"/>
				<updated>2023-12-15T08:48:39Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
[[Archivo:CampoDeTemperaturas7.png|350px|miniaturadeimagen|centro]]   [[Archivo:CurvasDeNivel7.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:GradienteTemperatura.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;\vec{e_{v}}&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos los valores   &amp;lt;math&amp;gt; p_{1} = 4,     p_{2} = 1,   {\mu} = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;Q\left ( m/s \right )=\int_{S}^{}\overrightarrow{u}\overrightarrow{n}dS=\int_{S}^{}\left(\frac{1}{\mu}\right) \left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&lt;br /&gt;
dS=\int_{0}^{2\Pi }\int_{0}^{2}\left ( \frac{1}{4}\frac{p2-p1}{\mu }\rho ^{2}+\frac{p1-p2}{\mu } \right )d_{\rho }d_{\theta }=...=\frac{8\Pi }{6\mu}\cdot {-3} + \frac{12\Pi }{\mu}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;= {8\pi} =&amp;lt;/math&amp;gt; 25,13(m/s)&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62958</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62958"/>
				<updated>2023-12-14T11:12:36Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Representación del campo de presiones y velocidades */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidadesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
uy=(-3/4).*xx.^2+3;&lt;br /&gt;
ux=0.*yy;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)^2}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)^2}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;(\vec{v})&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Campovelocidadesdefinitivo.PNG&amp;diff=62952</id>
		<title>Archivo:Campovelocidadesdefinitivo.PNG</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Campovelocidadesdefinitivo.PNG&amp;diff=62952"/>
				<updated>2023-12-14T11:09:57Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62931</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62931"/>
				<updated>2023-12-14T11:04:04Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Representación del campo de presiones y velocidades */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial.&lt;br /&gt;
[[Archivo:Campovelocidades2.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 x=0:0.1:2;&lt;br /&gt;
 y=0:0.1:10;&lt;br /&gt;
 [xx,yy]=meshgrid(x,y);&lt;br /&gt;
 ux=(-3/4).*xx.^2+3;&lt;br /&gt;
 uy=0.*yy;&lt;br /&gt;
 hold on&lt;br /&gt;
 quiver(xx,yy,ux,uy)&lt;br /&gt;
 axis([0,3,0,10])&lt;br /&gt;
 hold off&lt;br /&gt;
 view(2)&lt;br /&gt;
 title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionalg23.png|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:2;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
rot=abs((-3/2).*xx);&lt;br /&gt;
hold on&lt;br /&gt;
surf(xx,yy,rot);&lt;br /&gt;
colorbar;&lt;br /&gt;
axis([0,2.5,0,10]);&lt;br /&gt;
title('Rotacional de  u');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
hold off&lt;br /&gt;
figure(2)&lt;br /&gt;
hold on&lt;br /&gt;
contour(X,Y,p,'k'); &lt;br /&gt;
title('Curvas de nivel')&lt;br /&gt;
hold off&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
Para estudiar la variación de temperatura, analizamos el gradiente que indica la dirección de crecimiento de la función temperatura en cada uno de los puntos.                  &lt;br /&gt;
Con este gráfico creado, podemos observar que las curvas de nivel son ortogonales al gradiente de la temperatura. Esto se debe a que el gradiente es el responsable de la dirección de crecimiento y decrecimiento del campo.&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X).*exp(-(Y-2).^2);&lt;br /&gt;
[pX,pY]=gradient(p);&lt;br /&gt;
hold on&lt;br /&gt;
quiver(X,Y,pX,pY)&lt;br /&gt;
contour(X,Y,p,'k');&lt;br /&gt;
axis([0,2,0,10]);&lt;br /&gt;
title('Gradiente temperatura y curvas de nivel');&lt;br /&gt;
shading flat&lt;br /&gt;
grid on&lt;br /&gt;
hold off&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;br /&gt;
Para poder calcular el caudal que llevara la tubería, se estudia el volumen de fluido que pasa a través de la tubería. La integral de la superficie es la siguiente: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\int_{S}\vec{v} \cdot d\vec{S}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La &amp;lt;math&amp;gt;(\vec{v})&amp;lt;/math&amp;gt; es el campo de velocidades, este campo es el calculado anteriormente. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62797</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62797"/>
				<updated>2023-12-14T10:10:36Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Representación del campo de presiones y velocidades */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresionesdefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campovelocidades2.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+3;&lt;br /&gt;
uy=-3/4*yy.^2+3;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionag23l.jpg|350px|miniaturadeimagen]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 x=0:0.1:2;&lt;br /&gt;
 y=0:0.1:10;&lt;br /&gt;
 [xx,yy]=meshgrid(x,y);&lt;br /&gt;
 rot=abs((-3/2).*xx);&lt;br /&gt;
 hold on&lt;br /&gt;
 surf(xx,yy,rot);&lt;br /&gt;
 colorbar;&lt;br /&gt;
 axis([0,2.5,0,10]);&lt;br /&gt;
 title('Rotacional de  u');&lt;br /&gt;
 hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.01:8;&lt;br /&gt;
y=-2:0.05:10;&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
figure (1)&lt;br /&gt;
p=log(1+X)*exp^-(-Y-2)^2&lt;br /&gt;
pcolor(X,Y,p);&lt;br /&gt;
shading flat&lt;br /&gt;
hold on&lt;br /&gt;
axis([0,8,-1,10]);&lt;br /&gt;
colorbar &lt;br /&gt;
figure(2)&lt;br /&gt;
contour(X,Y,p,10,'k'); &lt;br /&gt;
title('Campo de temperaturas')&lt;br /&gt;
hold on&lt;br /&gt;
axis([0,8,-1,10]);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Campodepresionesdefinitivo.PNG&amp;diff=62796</id>
		<title>Archivo:Campodepresionesdefinitivo.PNG</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Campodepresionesdefinitivo.PNG&amp;diff=62796"/>
				<updated>2023-12-14T10:09:58Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62777</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62777"/>
				<updated>2023-12-14T10:02:15Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Representación del campo de presiones y velocidades */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresiones.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(f,z)&lt;br /&gt;
xlabel('Incremento de presión');&lt;br /&gt;
ylabel('Incremento de altura');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campovelocidades2.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+3;&lt;br /&gt;
uy=-3/4*yy.^2+3;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionag23l.jpg|350px|miniaturadeimagen]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 x=0:0.1:2;&lt;br /&gt;
 y=0:0.1:10;&lt;br /&gt;
 [xx,yy]=meshgrid(x,y);&lt;br /&gt;
 rot=abs((-3/2).*xx);&lt;br /&gt;
 hold on&lt;br /&gt;
 surf(xx,yy,rot);&lt;br /&gt;
 colorbar;&lt;br /&gt;
 axis([0,2.5,0,10]);&lt;br /&gt;
 title('Rotacional de  u');&lt;br /&gt;
 hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62774</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62774"/>
				<updated>2023-12-14T10:01:16Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Líneas de Corriente del Campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresiones.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(z,f)&lt;br /&gt;
xlabel('Incremento de altura');&lt;br /&gt;
ylabel('Incremento de presión');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campovelocidades2.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+3;&lt;br /&gt;
uy=-3/4*yy.^2+3;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedefinitivo.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-(1/4).*(R.^3)+3.*R;&lt;br /&gt;
contour(R,Z,F);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionag23l.jpg|350px|miniaturadeimagen]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 x=0:0.1:2;&lt;br /&gt;
 y=0:0.1:10;&lt;br /&gt;
 [xx,yy]=meshgrid(x,y);&lt;br /&gt;
 rot=abs((-3/2).*xx);&lt;br /&gt;
 hold on&lt;br /&gt;
 surf(xx,yy,rot);&lt;br /&gt;
 colorbar;&lt;br /&gt;
 axis([0,2.5,0,10]);&lt;br /&gt;
 title('Rotacional de  u');&lt;br /&gt;
 hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(e\rho)+ \frac{1}{p} \cdot\frac{df}{d\theta} \cdot(e\theta)+ \frac{df}{dz}\cdot(ez)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente, el gradiente queda expresado en el siguiente campo:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{e^{-(z-2)}}{1+\rho} -2 \cdot log(\rho + 1) \cdot (z-2) \cdot{e^{-(z-2)}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El campo de temperatura se observara a mayor detalle en la siguiente gráfica, realizada en Matlab&lt;br /&gt;
&lt;br /&gt;
===Gradiente de la Temperatura===&lt;br /&gt;
&lt;br /&gt;
===Caudal===&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Lineasdecorrientedefinitivo.PNG&amp;diff=62766</id>
		<title>Archivo:Lineasdecorrientedefinitivo.PNG</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Lineasdecorrientedefinitivo.PNG&amp;diff=62766"/>
				<updated>2023-12-14T09:59:27Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62743</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62743"/>
				<updated>2023-12-14T09:48:52Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Líneas de Corriente del Campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresiones.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(z,f)&lt;br /&gt;
xlabel('Incremento de altura');&lt;br /&gt;
ylabel('Incremento de presión');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campovelocidades2.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+3;&lt;br /&gt;
uy=-3/4*yy.^2+3;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  0  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedef.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-1/4*(R.^3)+5*R;&lt;br /&gt;
contour(R,Z,F,10);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionag23l.jpg|350px|miniaturadeimagen]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 x=0:0.1:2;&lt;br /&gt;
 y=0:0.1:10;&lt;br /&gt;
 [xx,yy]=meshgrid(x,y);&lt;br /&gt;
 rot=abs((-3/2).*xx);&lt;br /&gt;
 hold on&lt;br /&gt;
 surf(xx,yy,rot);&lt;br /&gt;
 colorbar;&lt;br /&gt;
 axis([0,2.5,0,10]);&lt;br /&gt;
 title('Rotacional de  u');&lt;br /&gt;
 hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e^{-(z-2)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como podemos ver el campo escalar viene dado en coordenadas cilíndricas por lo que que calculo el gradiente con la siguiente fórmula:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown{T}(\rho,\theta,z)=\frac{df}{dp}\cdot(ep)+ \frac{1}{p} \cdot&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62682</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62682"/>
				<updated>2023-12-14T09:20:47Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Rotacional del Campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresiones.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(z,f)&lt;br /&gt;
xlabel('Incremento de altura');&lt;br /&gt;
ylabel('Incremento de presión');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campovelocidades2.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+3;&lt;br /&gt;
uy=-3/4*yy.^2+3;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  1  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedef.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-1/4*(R.^3)+5*R;&lt;br /&gt;
contour(R,Z,F,10);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sustituimos los valores anteriores llegamos a que &amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionag23l.jpg|350px|miniaturadeimagen]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 x=0:0.1:2;&lt;br /&gt;
 y=0:0.1:10;&lt;br /&gt;
 [xx,yy]=meshgrid(x,y);&lt;br /&gt;
 rot=abs((-3/2).*xx);&lt;br /&gt;
 hold on&lt;br /&gt;
 surf(xx,yy,rot);&lt;br /&gt;
 colorbar;&lt;br /&gt;
 axis([0,2.5,0,10]);&lt;br /&gt;
 title('Rotacional de  u');&lt;br /&gt;
 hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e&amp;lt;sup&amp;gt;-(z-2)&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&amp;lt;/sup&amp;gt;&amp;lt;\math&amp;gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62681</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=62681"/>
				<updated>2023-12-14T09:20:21Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Rotacional del Campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}-p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{3}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresiones.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(z,f)&lt;br /&gt;
xlabel('Incremento de altura');&lt;br /&gt;
ylabel('Incremento de presión');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campovelocidades2.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+3;&lt;br /&gt;
uy=-3/4*yy.^2+3;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
Para dibujar las líneas de corriente primero debemos calcular el campo &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; que es ortogonal a &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; en cada punto.&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  1  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}-p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\vec{v} &amp;lt;/math&amp;gt; tiene un potencial escalar &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt;, calculamos &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; sabiendo que &amp;lt;math&amp;gt;\bigtriangledown\psi=\vec{v}&amp;lt;/math&amp;gt;, la cual se conoce como función de corriente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}-p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}-p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo los valores de &amp;lt;math&amp;gt;p_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;p_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;mu&amp;lt;/math&amp;gt; obtenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {3}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculado &amp;lt;math&amp;gt;\psi&amp;lt;/math&amp;gt; dibujamos las líneas de corriente del campo &amp;lt;math&amp;gt;\psi=cte&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorrientedef.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-1/4*(R.^3)+5*R;&lt;br /&gt;
contour(R,Z,F,10);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
[[Archivo:Modulodevelocidad.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
f=abs((-3/4)*rho.^2+3);&lt;br /&gt;
plot(rho,f);&lt;br /&gt;
title('Comportamiento del módulo de la velocidad')&lt;br /&gt;
xlabel('Radio')&lt;br /&gt;
ylabel('Velocidad')&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Calculamos el rotacional de el campo de velocidades.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=&lt;br /&gt;
\frac{1}{\rho }\begin{vmatrix}&lt;br /&gt;
\overrightarrow{e_{\rho }} &amp;amp;\rho \overrightarrow{e_{\theta }}  &amp;amp; \overrightarrow{e_{z}}\\ &lt;br /&gt;
 \frac{d}{d\rho }&amp;amp; \frac{d}{d\theta } &amp;amp;\frac{d}{dz} \\ &lt;br /&gt;
0 &amp;amp; 0 &amp;amp;f\left ( \rho  \right ) &lt;br /&gt;
\end{vmatrix}=\frac{1}{2}\frac{p2-p1}{\mu }\rho \overrightarrow{e_{\theta }}&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Si sutimos los valores anteriores llegamos a que &amp;lt;/math&amp;gt;\bigtriangledown\times\overrightarrow{u}\left ( \rho ,\theta ,z \right )=\frac{-3\rho}2&amp;lt;/math&amp;gt;&lt;br /&gt;
Podemos observar que los puntos con mayor rotacional se encuentran en los extremos, al depender solo de &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
[[Archivo:Rotacionag23l.jpg|350px|miniaturadeimagen]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
 x=0:0.1:2;&lt;br /&gt;
 y=0:0.1:10;&lt;br /&gt;
 [xx,yy]=meshgrid(x,y);&lt;br /&gt;
 rot=abs((-3/2).*xx);&lt;br /&gt;
 hold on&lt;br /&gt;
 surf(xx,yy,rot);&lt;br /&gt;
 colorbar;&lt;br /&gt;
 axis([0,2.5,0,10]);&lt;br /&gt;
 title('Rotacional de  u');&lt;br /&gt;
 hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Temperatura del fluido===&lt;br /&gt;
La temperatura de nuestro fluido viene dada por el campo escalar &amp;lt;math&amp;gt;{T}(\rho,\theta,z)= log (1 + \rho) e&amp;lt;sup&amp;gt;-(z-2)&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;&amp;lt;/sup&amp;gt;&amp;lt;\math&amp;gt;&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=60804</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=60804"/>
				<updated>2023-12-12T20:18:02Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}+p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{5}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresiones.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(z,f)&lt;br /&gt;
xlabel('Incremento de altura');&lt;br /&gt;
ylabel('Incremento de presión');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campodevelocidades.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+5;&lt;br /&gt;
uy=-3/4*yy.^2+5;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  1  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}+p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}+p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}+p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {5}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorriente.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
rho=0:0.05:2;&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
[R,Z]=meshgrid(rho,z);&lt;br /&gt;
F=-1/4*(R.^3)+5*R;&lt;br /&gt;
contour(R,Z,F,10);&lt;br /&gt;
colorbar&lt;br /&gt;
axis([0,3,0,10]);&lt;br /&gt;
title('Representación de las líneas de corriente')&lt;br /&gt;
}}&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
&lt;br /&gt;
Óscar &lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Jaime &lt;br /&gt;
&lt;br /&gt;
===Temperatura Máxima===&lt;br /&gt;
&lt;br /&gt;
Jorge y Galarza&lt;br /&gt;
&lt;br /&gt;
===Gradiente de Temperatura===&lt;br /&gt;
&lt;br /&gt;
Jorge y Galarza&lt;br /&gt;
&lt;br /&gt;
===Caudal de la Sección Transversal===&lt;br /&gt;
&lt;br /&gt;
Jorge y Galarza&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=60803</id>
		<title>Flujo de Poiseuille (Grupo 23)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Flujo_de_Poiseuille_(Grupo_23)&amp;diff=60803"/>
				<updated>2023-12-12T20:16:33Z</updated>
		
		<summary type="html">&lt;p&gt;Ana.gastanaga: /* Líneas de Corriente del Campo */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;br /&gt;
{{ TrabajoED | Flujo de Poiseuille (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Ana Gastañaga Solana &amp;lt;br/&amp;gt; Jaime Casanova Navas &amp;lt;br/&amp;gt; Jorge Muñoz Jiménez &amp;lt;br/&amp;gt; Daniel Galarza Polo &amp;lt;br/&amp;gt; Óscar García Caballero }}&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC23/24]]&lt;br /&gt;
===Introducción===&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Mallado de la sección transversal de la tubería===&lt;br /&gt;
El mallado dibujado en dimensión 2 representa la sección transversal de la tubería &amp;lt;math&amp;gt; x_{1} = 0 &amp;lt;/math&amp;gt;, fijando los ejes en la región &amp;lt;math&amp;gt; \left ( \rho,z \right )\epsilon \left [ 0,3 \right ]\times \left [ 0,10 \right ]. &amp;lt;/math&amp;gt; &lt;br /&gt;
[[Archivo:Malladodelasecciondelatub.PNG|350px|miniaturadeimagen|centro]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.1:3;&lt;br /&gt;
y=0:0.1:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y)                                                    &lt;br /&gt;
hold on&lt;br /&gt;
mesh(xx,yy,0*xx)&lt;br /&gt;
axis([0,3,0,10])&lt;br /&gt;
view(2);&lt;br /&gt;
title('Mallado de la sección de la tubería');&lt;br /&gt;
hold off&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Ecuación Navier-Stokes===&lt;br /&gt;
La velocidad esta definida por el campo vectorial &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt;  y su presión por el camp escalar &amp;lt;math&amp;gt;p\left(x,y\right)=p_{1}+\left (p_{2}-p_{1}\right)(z-1) &amp;lt;/math&amp;gt; siendo &amp;lt;math&amp;gt; p_{1} &amp;lt;/math&amp;gt; es la presión en &amp;lt;math&amp;gt; z=1 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; p_{2} &amp;lt;/math&amp;gt; la presión en &amp;lt;math&amp;gt; z=3 &amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; \mu &amp;lt;/math&amp;gt; su coeficiente de viscosidad.&lt;br /&gt;
&lt;br /&gt;
Ecuacion de Navier-Stokes:      &amp;lt;math&amp;gt;  \left ( \vec{u}\cdot \triangledown  \right )\vec{u}+\triangledown p=\mu\Delta\vec{u}, &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si &amp;lt;math&amp;gt; \left ( \vec{u},\rho \right ) &amp;lt;/math&amp;gt; satisface la ecuación Navier-Stokes y despreciamos el termino convectivo de la misma llegamos a la siguiente ecuacion diferencial&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \frac{1}{\rho} \frac{\partial }{\partial \rho }\left ( \rho \frac{\partial f\left ( \rho  \right )}{\partial \rho } \right )=\frac{p_{2}-p_{1}}{\mu} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Mutiplicando por  &amp;lt;math&amp;gt; \rho &amp;lt;/math&amp;gt; e integramos dos veces obtenemos que&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; f\left(\rho \right )=\frac{\left ( p_{2}-p_{1} \right )}{4\mu}\rho^{2} + \rho*c + k&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para encontrar la solución exacta suponemos que para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt; y para &amp;lt;math&amp;gt; \rho=2 &amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt; f\left ( \rho \right )=0 &amp;lt;/math&amp;gt;,obteniendo:  &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f\left ( \rho  \right )=\frac{1}{\mu }\left [ \frac{p2-p1}{4 }\rho ^{2} +p1-p2\right ]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ademas, al ser la funcion de velocidad &amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt; f\left ( \rho \right ) &amp;lt;/math&amp;gt; no depender de &amp;lt;math&amp;gt; z &amp;lt;/math&amp;gt; su divergente es nulo lo que nos indica que el fluido es incompresible.&lt;br /&gt;
&lt;br /&gt;
===Representación del campo de presiones y velocidades===&lt;br /&gt;
Suponiendo que &amp;lt;math&amp;gt; p_{1}=4,  p_{2}=1  &amp;lt;/math&amp;gt;  y &amp;lt;math&amp;gt;\mu=1 &amp;lt;/math&amp;gt;, primeramente calculamos el campo de presiones y de velocidades.&lt;br /&gt;
&lt;br /&gt;
- Calculamos el ''campo de presiones'' introduciendo los datos proporcionados en la ecuación de la presión&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right ) &amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;p\left ( x,y \right )=p_{1}+\left ( p_{2}-p_{1} \right )\left ( z-1 \right ){/2}=4+\left ( 1-4 \right )\left ( z-1 \right ){/2}={4}-\frac{3z}{2}+\frac{3}{2}=\frac{-3z}{2}+\frac{11}{2} &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
- Calculamos ahora el ''campo de velocidades'' utilizando la ecuación de la velocidad dada:&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{u}(\rho,\theta,z)= f\left(\rho\right)\vec{e_{z}} &amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;&lt;br /&gt;
f\left(\rho\right)=\frac{1}{\mu}\left(\frac{\left(p_{2}-p_{1}\right)}{4}\rho^{2}+p_{1}+p_{2}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;,(como hemos calculado previamente mediante la ecuación de Navier-Stockes). Sustituyendo los datos en la ecuación obtenemos:&lt;br /&gt;
&amp;lt;math&amp;gt;f\left(\rho\right)=\left(\frac{-3}{4}\rho^{2}+{5}\right)\vec{e_{z}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Una vez calculados procedemos a representarlos:&lt;br /&gt;
&lt;br /&gt;
'''Campo de presiones''': como podemos observar en el gráfico la relación entre el incremento de la altura y el incremento de presión es lineal. Debido a esta condición a medida que aumenta o disminuye la altura lo hace de igual forma la presión.&lt;br /&gt;
[[Archivo:Campodepresiones.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
z=0:0.05:10;&lt;br /&gt;
f=(-3*z+3)/2;&lt;br /&gt;
plot(z,f)&lt;br /&gt;
xlabel('Incremento de altura');&lt;br /&gt;
ylabel('Incremento de presión');&lt;br /&gt;
title('Representación del campo de presiones del fluido');&lt;br /&gt;
}}&lt;br /&gt;
'''Campo de velocidades''': el campo de velocidades del fluido se trata de un campo vectorial y como viene dado  en coordenadas polares antes de representarlo debemos cambiarlo a coordenadas cartesianas.&lt;br /&gt;
[[Archivo:Campodevelocidades.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
x=0:0.05:2;&lt;br /&gt;
y=0:0.05:10;&lt;br /&gt;
[xx,yy]=meshgrid(x,y);&lt;br /&gt;
ux=-3/4*xx.^2+5;&lt;br /&gt;
uy=-3/4*yy.^2+5;&lt;br /&gt;
hold on&lt;br /&gt;
quiver(xx,yy,ux,uy)&lt;br /&gt;
axis([0,3,0,11])&lt;br /&gt;
hold off&lt;br /&gt;
view(2)&lt;br /&gt;
title('Representación del campo de velocidades del fluido')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
===Líneas de Corriente del Campo===&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}=\vec{e_{\theta}}\times\vec{u}=\begin{vmatrix}\vec{e_{\rho}} &amp;amp;  \vec{e_{\theta}} &amp;amp; \vec{e_{z}} \\  0  &amp;amp;  1 &amp;amp; 0\\  1  &amp;amp;  0 &amp;amp; f\left (\rho\right)\end{vmatrix}=f\left (\rho\right)\overrightarrow{e_{\rho}}\rightarrow \overrightarrow{v}=f\left (\rho\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Sustituyendo &amp;lt;math&amp;gt;f\left(\rho\right)&amp;lt;/math&amp;gt; en la ecuación se obtiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\overrightarrow{v}=\frac{1}{\mu}\left(\frac{p_{2}-p_{1}}{4}\rho^{2} + p_{1}+p_{2}\right)\overrightarrow{e_{\rho}}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\psi}{d\rho}=\frac{p_{2}-p_{1}}{4\mu}\rho ^{2} +\frac{p_{1}+p_{2}}{\mu}\ &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=\frac{p_{2}-p_{1}}{12\mu}\rho^{3} + \frac{p_{1}+p_{2}}{\mu}\rho&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\psi=-\frac{1}{4}\rho^{3} + {5}\rho&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Lineasdecorriente.PNG|350px|miniaturadeimagen|centro]]&lt;br /&gt;
&lt;br /&gt;
===Velocidad Máxima del Fluido===&lt;br /&gt;
&lt;br /&gt;
Óscar &lt;br /&gt;
&lt;br /&gt;
===Rotacional del Campo===&lt;br /&gt;
&lt;br /&gt;
Jaime &lt;br /&gt;
&lt;br /&gt;
===Temperatura Máxima===&lt;br /&gt;
&lt;br /&gt;
Jorge y Galarza&lt;br /&gt;
&lt;br /&gt;
===Gradiente de Temperatura===&lt;br /&gt;
&lt;br /&gt;
Jorge y Galarza&lt;br /&gt;
&lt;br /&gt;
===Caudal de la Sección Transversal===&lt;br /&gt;
&lt;br /&gt;
Jorge y Galarza&lt;/div&gt;</summary>
		<author><name>Ana.gastanaga</name></author>	</entry>

	</feed>