MateWiki - Contribuciones del usuario [es]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T19:13:32Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2= (0+ \frac{\partial^2 ((y+1)(1-y)((p_1-p_2)/2 {\mu}))}{\partial x_2^2}) \vec e_1+ (0+0) \vec e_2= - \frac {p_1-p_2}{{\mu}} \vec e_1=- \frac {p_1-p_2}{{\mu}} \vec i </math>;
Llegamos entonces a <math>\ ∆ \vec u= \frac {p_2-p_1}{{\mu}} \vec i </math>

Volvamos a la ecuación de Navier-Stokes: <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math>, si sustituimos todo lo calculado anteriormente, llegamos a lo siguiente: <math>\ 0+(p_2-p_1) \vec i= {\mu}- \frac {p_1-p_2}{{\mu}} \vec i= -p_1+p_2 \vec i</math>. Se cumple la Ecuación de Navier-Stokes Estacionaria. Es un fluido Newtoniano.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T18:02:17Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2= (0+ \frac{\partial^2 ((y+1)(1-y)((p_1-p_2)/2 {\mu}))}{\partial x_2^2}) \vec e_1+ (0+0) \vec e_2= - \frac {p_1-p_2}{{\mu}} \vec e_1=- \frac {p_1-p_2}{{\mu}} \vec i </math>;
Llegamos entonces a <math>\ ∆ \vec u= \frac {p_2-p_1}{{\mu}} \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T18:01:52Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2= (0+ \frac{\partial^2 ((y+1)(1-y)((p_1-p_2)/2 {\mu}))}{\partial x_2^2}) \vec e_1+ (0+0) \vec e_2= - \frac {p_1-p_2}{{\mu}} \vec e_1=- \frac {p_1-p_2}{{\mu}} \vec i </math>; Llegamos entonces a <math>\ ∆ \vec u= \frac {p_2-p_1}{{\mu}} \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:59:10Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2= (0+ \frac{\partial^2 ((y+1)(1-y)((p_1-p_2)/2 {\mu}))}{\partial x_2^2}) \vec e_1+ (0+0) \vec e_2= - \frac {p_1-p_2}{{\mu}} \vec e_1=- \frac {p_1-p_2}{{\mu}} \vec i </math>;

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:58:04Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2= (0+ \frac{\partial^2 ((y+1)(1-y)((p_1-p_2)/2 {\mu}))}{\partial x_2^2}) \vec e_1+ (0+0) \vec e_2= - \frac {p_1-p_2}{{\mu}} </math>;

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:49:11Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2= (0+ \frac{\partial^2 ((y+1)(1-y)((p_1-p_2)/2 {\mu}))}{\partial x_2^2}) \vec e_1+ (0+0) \vec e_2</math>;

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:48:32Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2= (0+ \frac{\partial^2 ((y+1)(1-y)((p_1-p_2)/2 {\mu}))}{\partial x_2^2}) \vec e_1(0+0) \vec e_2</math>;

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:44:40Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2=( \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}) \vec e_1+( \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}) \vec e_2 </math>;

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:40:49Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2 </math>; Sean por definición <math>\ ∆u_1= \frac {\partial^2 u_1}{\partial x_1^2}+ \frac {\partial^2 u_1}{\partial x_2^2}; ∆u_2= \frac {\partial^2 u_2}{\partial x_1^2}+ \frac {\partial^2 u_2}{\partial x_2^2}</math>;

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:39:28Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2 </math>; Sean por definición <math>\ ∆u_1= \frac {\partial^2 u_1}{\partial x_1^2} </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:38:50Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2 </math>; Sean por definición <math>\ ∆u_1= \frac {\partial^2}{} </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:38:13Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)((p_1-p_2)/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2 </math>; Sean por definición <math>\ ∆u_1= \frac {}{} </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:35:17Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2 </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:34:18Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación, que es el gradiente de p: <math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

Nos queda el último término de la ecuación: <math>\ ∆ \vec u=∆u_i \vec e_i=∆u_1 \vec e_1+∆u_2 \vec e_2 /math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:28:18Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación: El gradiente de p:
<math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\partial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:27:52Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

Vayamos ahora con el segundo término de la ecuación: El gradiente de p:
<math>\ ∇p= \frac{\partial p}{\partial x_i} \vec e_i= \frac{\partial p}{\partial x} \vec i + \frac {\parial p}{\partial y} \vec j= \frac{\partial (p_1+(p_2-p_1)(x-1))}{\partial x} \vec i +0 \vec j= (p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:15:54Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})(0) \vec e_1=0 </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:13:29Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})( \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1}) \vec e_1 </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T17:12:35Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

Sustituimos y tenemos lo siguiente: <math>\ u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial 0}{\partial x_1} \vec e_2+ 0 \frac {\partial u_1}{\partial x_2} \vec e_1+ 0 \frac {\partial 0}{\partial x_2} \vec e_2= (y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}) \frac {\partial ((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}))}{\partial x_1} \vec e_1 </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T16:55:43Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sean en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}); u_2=0 </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T16:55:12Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2 </math>; sea en nuestro caso <math>\ u_1=(y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}}) </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T16:52:45Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i=u_1 \frac {\partial u_1}{\partial x_1} \vec e_1+ u_1 \frac {\partial u_2}{\partial x_1} \vec e_2+ u_2 \frac {\partial u_1}{\partial x_2} \vec e_1+ u_2 \frac {\partial u_2}{\partial x_2} \vec e_2</math>

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T16:50:15Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:

<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i= u_1 \frac {\partial u_i}{\partial x_1} \vec e_i+ u_2 \frac {\partial u_i}{\partial x_2} \vec e_i</math>

Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T16:48:49Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Vamos a comprobarlo:
<math>\ (\vec u·∇) \vec u= u_j \frac {\partial u_i}{\partial x_j} \vec e_i</math>

Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T16:33:16Z

Grupoc8:

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

Por último vamos a calcular el gradiente de la temperatura, de esa forma veremos en que dirección tiene un mayor crecimiento. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-14T10:38:27Z

Grupoc8:

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el comportamiento de los fluidos "newtonianos", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T13:15:36Z

Grupoc8: /* Gradiente de la temperatura */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]
El gradiente indica la dirección de máximo crecimiento de una función, mientras que las curvas de nivel son los puntos donde la función escalar tiene un valor constante, por ello siempre van a ser ortogonales.

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T13:08:44Z

Grupoc8:

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|700px|miniaturadeimagen|centro|Gradiente de la temperatura y curvas de nivel]]

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T13:07:59Z

Grupoc8: /* Gradiente de la temperatura */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Nótese que el gradiente es ortogonal a las curvas de nivel siempre, veámoslo con mayor ampliación:
[[Archivo:Foto8b_detalle.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T13:06:24Z

Grupoc8: /* Gradiente de la temperatura */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

Si dibujamos las curvas de nivel y el gradiente, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T13:05:30Z

Grupoc8: /* Gradiente de la temperatura */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>
Si dibujamos las curvas de nivel, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Archivo:Foto8b detalle.png

2021-12-11T13:04:07Z

Grupoc8:

Archivo:Foto8bv3 gradiente curvas temperatura.png

2021-12-11T13:03:35Z

Grupoc8:

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T13:03:10Z

Grupoc8: /* Gradiente de la temperatura */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>
Si dibujamos las curvas de nivel, obtenemos lo siguiente:

[[Archivo:Foto8bv3_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
figure(2)
hold on
quiver(X,Y,-2*X.*Y.^2.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho,2*Y.*exp(-(rho-1/2*X./X).^2)-2*Y.^3.*(rho-1/2*X./X).*exp(-(rho-1/2*X./X).^2)./rho);
contour(X,Y,T,10)
axis equal
grid
view(2)
axis equal
axis([0,8,-2,2]);
colorbar
title('Gradiente temperatura y curvas de nivel')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T12:52:10Z

Grupoc8: /* Campo de temperaturas */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}

Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T12:51:44Z

Grupoc8: /* Campo de temperaturas */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
T=X./X+Y.^2.*[exp(-(rho-1/2*X./X).^2)];
surf(X,Y,T);
view
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de temperaturas')
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Archivo:Foto7v2 temperatura.png

2021-12-11T12:50:46Z

Grupoc8:

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T12:31:03Z

Grupoc8: /* Campo de temperaturas */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=0</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T12:30:26Z

Grupoc8: /* Campo de temperaturas */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=0:1/30:8;
y=-1:1/20:1;
[X,Y]=meshgrid(x,y);
rho=sqrt(X.^2+Y.^2);
hold on
contour(X,Y,T,10);
axis equal;
axis([0,8,-2,2]);
view(2);
title('Curvas de nivel de temperatura')
colorbar
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Archivo:Foto7bv3 temperatura.png

2021-12-11T12:24:44Z

Grupoc8:

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T12:24:17Z

Grupoc8: /* Campo de temperaturas */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v2_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv3_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:52:31Z

Grupoc8: /* Líneas de corriente del campo \ \vec u */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8;
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:51:44Z

Grupoc8: /* Ecuación de Navier-Stokes */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:50:56Z

Grupoc8: /* Campo de presiones y velocidades */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:50:39Z

Grupoc8: /* Puntos con mayor módulo de velocidad */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:47:26Z

Grupoc8:

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:45:19Z

Grupoc8: /* Puntos con mayor módulo de velocidad */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2} </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:43:42Z

Grupoc8: /* Puntos con mayor módulo de velocidad */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2}; \frac {\partial |\vec u|}{\partial y}= \frac {-2y}{2}=-y </math>

Si <math>\ y=0; \vec u=1 </math>

Si <math>\ y=-1; \vec u=0 </math>

Si <math>\ y=1; \vec u=0 </math>

Si <math>\ y=0'5; \vec u=0'75 </math>

Luego la velocidad es máxima en el centro del canal, es decir, en <math>\ y=0 </math>.

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:40:56Z

Grupoc8: /* Puntos con mayor módulo de velocidad */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2}; \frac {\partial |\vec u|}{\partial y}= \frac {-2y}{2}=-y </math>

Si <math>\ y=0 {\arrow} \vec u=1</math>

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]

Visualización de campos escalares y vectoriales en fluidos. Grupo 8C

2021-12-11T11:18:31Z

Grupoc8: /* Puntos con mayor módulo de velocidad */

{{ TrabajoED | Visualización de campos escalares y vectoriales en fluidos. Grupo 8C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Celia Vives Mora
Jesús Gil Gutiérrez

Pablo Martín Mulero}}
En el siguiente trabajo trataremos la visualización de una serie de campos escalares y vectoriales sobre la superficie de un canal rectangular. Para la representación gráfica de estos campos recurriremos a Octave.

== Mallado del canal ==
En primer lugar, vamos a visualizar nuestro canal y comprender en dónde vamos a trabajar. Para ello, definiremos el mallado del canal sobre el que trabajaremos. Este canal posee una longitud y un ancho de 8 y 2 metros respectivamente. El código Octave es el que se adjunta a continuación:
{{matlab|codigo=
x=0:0.1:8; %Vector X.
y=-1:0.1:1; %Vector Y.
[xx,yy]=meshgrid(x,y); %Mallado XY.
hold on
mesh(xx,yy,0.*xx); %Representamos el canal.
axis([0,8,-2,2]); %Rango de los ejes
axis equal %Los ejes X e Y iguales
view(2);
title ('Mallado del canal');
hold off
}}
Gráficamente, obtenemos lo siguiente:
[[Archivo:Foto1v3_mallado_canal.png|400px|miniaturadeimagen|centro|Mallado del canal]]

==Ecuación de Navier-Stokes==
Se nos dice que la velocidad del fluido en el canal viene dado por el siguiente campo vectorial: <math>\ \vec u (x,y)=(y+1)(1-y)(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math> ; mientras que la presión viene dado por el siguiente campo escalar: <math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math>. Sean <math>\ p_{\ 1} </math> la presión en los puntos <math>\ x=1 </math>, <math>\ p_{\ 2} </math> la presión en los puntos <math>\ x=2 </math> y<math>\ {\mu} </math> el coeficiente de viscosidad del fluido.

Las ecuaciones de Navier-Stokes describen el movimiento de los fluidos "reales", entre otros la conservación del movimiento y la conservación de la masa. Aplicando los principios de conservación de la mecánica y la termodinámica se obtienen estas fórmulas.
En nuestro caso, la ecuación <math>\ (\vec u · ∇) \vec u +∇p={\mu}∆\vec u </math> representa el principio de conservación del momento lineal. Por eso lo comprobamos:
<math>\ ∇ \vec u =\frac{\partial u_i}{\partial x_j} \vec e_j=0 \vec i + \frac{\partial u}{\partial y} \vec j;</math>
<math>\ ∇ \vec u=(-2y)(\frac{p_1-p_2}{2μ}) \vec j= \vec a;</math>
<math>\ \vec u · ∇ \vec u=((y+1)(y-1)(\frac{p_1-p_2}{2μ})) \vec i ·((-2y)(\frac{p_1-p_2}{2μ})) \vec j =0 </math>. Nos da 0 porque <math>\ \vec i </math> es ortogonal a <math>\ \vec j </math>.

<math>\ ∇p= \frac{\partial p_i}{\partial x_j} \vec e_i = ((-1)(p_1-p_2)) \vec i + 0 \vec j; ∇p=(p_2-p_1) \vec i </math>

<math>\ ∆ \vec u=∇·∇ \vec u; ∆ \vec u=∇· \vec a=(\frac{\partial}{\partial x}(a_x)+\frac{\partial}{\partial y}(a_y)+\frac{\partial}{\partial z}(a_z)) </math>
<math>\ =(-2)(\frac{p_1-p_2}{2μ}) \vec j</math>
Por lo que sustituyendo: <math>\ 0+(p_2-p_1) \vec j= </math> Cumple con la primera condición para ser real. El líquido es estacionario.

Vamos a verificar la condición de incompresibilidad <math>\ ∇·\vec u =0 </math>, veámoslo:

Tenemos <math>\ \vec u (x,y)=\vec u (x_{\ 1},x_{\ 2})=(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})\vec i </math>, sea la divergencia por definición <math>\ ∇·\vec u = \frac{\partial u_{\ 1}}{\partial x_{\ 1}}+\frac{\partial u_{\ 2}}{\partial x_{\ 2}}</math>; operando: <math>\ ∇·\vec u = \frac{\partial(x_{\ 2}+1)(1-x_{\ 2})(p_{\ 1}-p_{\ 2}/2 {\mu})}{\partial x_{\ 1}}+\frac{\partial 0}{\partial x_{\ 2}}=0+0=0</math>. Luego se cumple la condición. ¿Que quiere decir que la divergencia sea nula? Pues que el fluido ni se contrae ni se expande, osea, es incompresible.

La velocidad del fluido en las paredes es la velocidad en <math>\ y=-1 </math> e <math>\ y=1 </math>:

Velocidad en <math>\ y=-1 </math> es: <math>\ \vec u (x_{\ 1},-1)=(0)(2)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Velocidad en <math>\ y=1 </math> es: <math>\ \vec u (x_{\ 1},1)=(2)(0)(\frac{p_{\ 1}-p_{\ 2}}{2 {\mu}})\vec i =0 </math>

Osea, la velocidad del fluido en las paredes del canal es 0, esto se debe al rozamiento con estas.

==Campo de presiones y velocidades==
Recordemos que la presión venía dada por<math>\ p(x,y)=p_{\ 1}+(p_{\ 2}-p_{\ 1})(x-1)</math> y la velocidad por <math>\ \vec u (x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2{\mu}})\vec i </math>, que cumplían la ecuación de Navier-Stokes estacionaria. Vamos a dar ahora unos valores a <math>\ p_{\ 1} </math>,<math>\ p_{\ 2} </math> y<math>\ {\mu} </math>. Como son <math>\ p_{\ 1}=2 </math>,<math>\ p_{\ 2}=1 </math> y <math>\ {\mu}=1 </math>. Dibujemos el campo de presiones y velocidades asociados a estos valores:

[[Archivo:Foto3av1_campo_presiones.png|400px|miniaturadeimagen|izquierda|Campo de presiones]]
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1
[xx,yy]=meshgrid(x,y);
p=2+(1-2)*(xx-1);
hold on
surf(xx,yy,p);
axis([0,8,-2,2]);
axis equal
colorbar
title('Campo de presiones')
hold off
}}
Podemos apreciar que cuanto más nos alejamos del origen las presiones irán descendiendo.

[[Archivo:Foto3bv1_campo_velocidades.png|400px|miniaturadeimagen|derecha|Campo de velocidades]]
{{matlab|codigo=
x=0:0.4:8; %Separamos la longitud del paso para que se vea mejor el campo vectorial
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
vx=(yy+1).*(1-yy).*(2-1)./(2*1);
vy=0.*yy;
hold on
quiver(xx,yy,vx,vy);
axis([0,8,-2,2]);
axis equal
title('Campo de velocidades')
hold off
}}
Con esta gráfica, vemos lo que ya habíamos calculado en el apartado anterior: La velocidad del fluido en las paredes es nula.

==Líneas de corriente del campo <math>\ \vec u </math>==
Hemos dibujado el campo de velocidades en el apartado anterior, pero ¿Cómo son las líneas de corriente?. Una línea de corriente es el camino que seguirá una partícula a lo largo del fluido, se trata del vector tangente al campo de velocidades.
Veamos que <math> \vec v </math> es irrotacional: Para ello calculamos el campo <math>\ \vec v </math> que en cada punto es ortogonal a <math>\ \vec u </math>. Tomaremos <math>\ \vec v= \vec k× \vec u </math>.

<math>\ \vec v= \vec k× \vec u= \vec k×((y+1)(1-y)( \frac {p_1-p_2}{2 {\mu}})) \vec i=(-y^2+1( \frac {p_1-p_2}{2 {\mu}})) \vec j </math>

Sustituyendo <math>\ p_1=2, p_2=1, {\mu}=1 </math>, tenemos entonces <math>\ \vec v=(-y^2+1) \vec j </math>

¿Es irrotacional? Veámoslo: <math>\ ∇× \vec v=\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ 0 & -y^2+1 & 0 \end{matrix}\right|=0 \vec i+0 \vec j+\frac {\partial (-y^2+1)}{\partial x} \vec k-(\frac {\partial (-y^2+1)}{\partial z} \vec i+0 \vec j+0 \vec k)=0 </math>. Luego es irrotacional. Es irrotacional ya que <math>\ \vec u </math> tiene divergencia nula.

Vamos a calcular <math>\ ψ: \vec v=∇ψ=\frac{\partial ψ}{\partial x}\vec e_i+\frac{\partial ψ}{\partial y}\vec e_j=0+\frac{\partial ψ}{\partial y} </math>; Vamos a integrar: <math>\ \int \frac{p_1-p_2}{2{\mu}}dy-\int \frac{y^2(p_1-p_2)}{2 {\mu}}dy </math>;
<math>\ ψ=(\frac{y(p_1-p_2)}{2{\mu}}-\frac{y^3}{1}·\frac{(p_1-p_2)}{6{\mu}}); ψ=\frac {3y(p_1-p_2)-y^3(p_1-p_2)}{6{\mu}}</math>

[[Archivo:Foto4v1_lineas_corriente.png|500px|miniaturadeimagen|derecha|Líneas de corriente]]
{{matlab|codigo=
x=0:0.25:8; %Aumentamos el tamaño del paso para que se vean mejor las íneas de corriente.
y=-1:0.2:1;
[X,Y]=meshgrid(x,y);
figure(4)
hold on
psi=Y/2-Y.^3/2;
contour(X,Y,psi,10,'r')
grid
axis([0,8,-2,2]);
axis equal;
title('Líneas de corriente')
xlabel('Eje x')
ylabel('Eje y')
view(2)
colorbar
quiver3(X,Y,0*X,1/2*X./X-Y.^2/2,0*X,0*X,'k');
hold off
}}
En la gráfica de la derecha podemos ver el campo de velocidades <math>\ \vec u </math> así como las líneas de corriente en rojo. Nótese que las líneas de corriente son rectas que siguen la misma dirección que el campo de velocidades. Esto se debe a que el campo se mueve en una única dirección.

==Puntos con mayor módulo de velocidad==
Calculemos los puntos con mayor módulo de velocidad:

<math>\ |\vec u|= \frac {1}{2}-y^2 \frac {1}{2}; \frac {\partial |\vec u|}{\partial y}= \frac {-2y}{2}=-y </math>

==Rotacional de <math>\ \vec u</math>==
<math>\ ∇× \vec u\left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ u_1 & u_2 & u_3 \end{matrix}\right| = \left|\begin{matrix} \vec i & \vec j & \vec k \\ \frac{\partial}{\partial x} & \frac{\partial}{\partial y} & \frac{\partial}{\partial z} \\ \frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}} & 0 & 0 \end{matrix}\right| =</math>
<math>\ 0 \vec j-\frac{\partial}{\partial y}(\frac{(y+1)(y-1)(p_1-p_2)}{2{\mu}})\vec k=\frac{(-2y)(p_1-p_2)}{2{\mu}}\vec k;|∇× \vec u|=\frac{-(p_1-p_2)}{{\mu}}=0</math>

Como no existen ni máximos ni mínimos absolutos, tendremos que ver si las paredes del canal son máximos o mínimos relativos.
Estamos trabajando en el intervalo y=[-1,1].
<math>\ y=1; |∇× \vec u|=|\frac{(-2·(-1))(p_1-p_2)}{2{\mu}}|=|\frac{p_1-p_2}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{p_1-p_2}{{\mu}}|=|\frac{2-1}{1}|=|1|=1</math>

<math>\ y=-1; |∇× \vec u|=|\frac{(-2·(1))(p_1-p_2)}{2{\mu}}|=|\frac{-(p_1-p_2)}{{\mu}}|;</math> si <math>\ p_1=2 , p_2=1 , {\mu}=1</math>, entonces llegamos a lo siguiente: <math>\ |∇× \vec u|=|\frac{-(p_1-p_2)}{{\mu}}|=|\frac{-(2-1)}{1}|=|-1|=1</math>

[[Archivo:Foto6v1_rotacional.png|400px|miniaturadeimagen|derecha|Rotacional de la velocidad]]
Con ello, concluimos que nuestros puntos dentro del canal con mayor rotacional son las paredes. Veámoslo de forma gráfica a continuación en Octave:
{{matlab|codigo=
x=0:0.1:8;
y=-1:0.1:1;
[xx,yy]=meshgrid(x,y);
rot=abs(yy);
hold on
surf(xx,yy,rot);
colorbar;
view(2);
axis([0,8,-2,2]);
axis equal
title('Rotacional de la velocidad')
hold off
}}
Se ve en la gráfica de la derecha que las paredes son los puntos de mayor rotacional, donde el valor es 1. Esto tiene una explicación: El rotacional mide lo que tiende a rotar un objeto/partícula debido al efecto del campo de velocidades; en el centro del canal -donde la velocidad es máxima- el descenso a izquierda o derecha (nos es indiferente, el campo es simétrico respecto al eje <math>\ y=0 </math>) es a nivel infinitesimal cercano a 0. Sin embargo, el campo de velocidades sigue una progresión parabólica, que hace que el descenso sea cada vez más acusado según nos acercamos a los laterales, donde es máximo. Como es en los laterales ese descenso infinitesimal máximo, una partícula tenderá a rotar más en esa zona.
[[Archivo:Parabolav1.png|700px|miniaturadeimagen|centro|Representación esquemática del canal y el campo de velocidades]]

==Campo de temperaturas==
Se nos dice que la temperatura viene dada por el siguiente campo escalar en coordenadas polares: <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Lo primero de todo, pasemos el campo a coordenadas cartesianas, aplicando los siguientes cambios de variable: <math>\ {\rho}={\sqrt {x^2+y^2}} </math> y <math> {\theta}=arctan(\frac {y}{x+0.0000001}) </math>. El sumar 0.0000001 en el denominador es para evitar que nos de la indeterminación partido de 0 el programa.
Teniendo en cuenta este cambio de variable, vamos a dibujar el campo de temperaturas y sus curvas de nivel, siendo el código Octave es el siguiente:
[[Archivo:Foto7v1_temperatura.png|400px|miniaturadeimagen|izquierda|Temperatura del fluido]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
teta=atan(y./[x+0.0000001])
[rho,teta]=meshgrid(x,y)
figure(1)
T=1+[rho.^2.*sin(teta).^2].*[exp(-[rho-0.5].^2)]
surf(rho,teta,T)
hold on
plot(rho,teta,1);
axis([0,8,-2,2]);
axis equal;
view(2);
contour(rho,teta,T,100);
title('Temperatura del fluido')
colorbar
hold off
}}
Para obtener las curvas de nivel de la temperatura, haremos lo siguiente:
[[Archivo:Foto7bv2_temperatura.png|400px|miniaturadeimagen|derecha|Curvas de nivel de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,30);
y=linspace(-1,1,30);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
temp=1+[rho.^2.*sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=-2.*[sin(theta).^2].*[rho-0.5].*[exp(-[rho-0.5].^2)];
Ty=sin(2*theta).*[exp(-[rho-0.5].^2)];
hold on
axis([0,8,-2,2]);
axis equal;
colorbar
figure(1);
contour(rho,theta,temp,15); %15 curvas de nivel
title('Curvas de nivel de la temperatura')
view(2);
hold off
}}
Gráficamente, podemos ver que las zonas de mayor temperatura están en torno a <math>\ x=1.25</math>, junto a las paredes del canal.

==Gradiente de la temperatura==
Vamos a calcular el gradiente de la temperatura. Sea la temperatura dada en coordenadas polares <math>\ T({\rho},{\theta})=1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2} </math>. Luego el gradiente en coordenadas polares, es por definición lo siguiente: <math>\ ∇T=\frac {\partial T({\rho},{\theta})}{\partial {\rho}} \vec i+ \frac {\partial T({\rho},{\theta})}{\partial {\theta}} \vec j </math>; Aplicando la fórmula:
<math>\ ∇T= \frac {\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\rho}} \vec i + \frac{\partial (1+{\rho}^2 sen^2 {\theta}e^{-({\rho-1/2})^2})}{\partial {\theta}} \vec j=(2 {\rho}sen^2{\theta}e^{-({\rho}^2- \frac {1}{2})^2}) \vec i-(4{\rho({\rho}^2- \frac {1}{2})e^{-({\rho}^2- \frac {1}{2})^2}}) \vec j</math>

[[Archivo:Foto8v2_gradiente_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

Si dibujamos las curvas de nivel, obtenemos lo siguiente:
[[Archivo:Foto8bv2_gradiente_curvas_temperatura.png|400px|miniaturadeimagen|derecha|Gradiente de la temperatura y curvas de nivel]]
{{matlab|codigo=
x=linspace(0,8,15);
y=linspace(-1,1,15);
rho=sqrt(x.^2+y.^2);
theta=atan(y./[x+0.0000001]);
[rho,theta]=meshgrid(x,y);
T=1+[rho.^2].*[sin(theta).^2].*[exp(-[rho-0.5].^2)];
Tx=2*rho.*[sin(theta).^2].*[exp(-[rho.^2-0.5].^2)]; %Componente i del gradiente
Ty=[-4*rho.^3+2*rho].*[exp(-[rho.^2-0.5].^2)]; %Componente j del gradiente
hold on
contour(rho,theta,T,15); %15 curvas de nivel
quiver(rho,theta,Tx,Ty);
axis([0,8,-2,2]);
axis equal
view(2)
title('Gradiente de la temperatura')
hold off
}}

==Caudal circulante por el centro del canal==
El porcentaje de caudal circulante por el centro del canal viene dado por la siguiente relación: <math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100 </math>.
Muy bien, necesitamos saber entonces <math>\ Q_{centro} </math> y <math>\ Q_{total} </math>. Calculémoslo, para hacerlo vamos a plantearlo mediante integrales de superficie:
Tomamos el caudal <math>\ \vec u(x,y)=(y+1)(1-y)(\frac{p_1-p_2}{2 {\mu}}) </math>, la superficie a atravesar será la sección del canal. Osea: <math>\
(y,z)∈(-1,1)×(0, \frac {1}{2}) </math>; si parametrizamos esta sección tenemos lo siguiente: <math>\ y=u </math>, <math>\ z=v </math>, con los parámetros moviéndose en <math>\ (u,v)∈(-1,1)×(0, \frac {1}{2}) </math>. Hecha esta parametrización, obtenemos el vector que la define: <math>\ \vec s(u,v)=u \vec j + v \vec k </math>. Para simplificar un poco los cálculos nombraremos <math>\ q </math> al término <math>\ \frac {p_1-p_2}{2 {\mu}} </math> del campo vectorial.

La integral de superficie será la siguiente: <math>\ Q_{total}= \int \int \vec u( \vec s(u,v))·( \frac{\partial \vec s}{\partial u}× \frac {\partial \vec s}{\partial v})dvdu=\int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i ·(\vec j × \vec k) = q \int_{u=-1}^{u=1} \int_{v=0}^{v=1/2}q(-u^2+1) \vec i · \vec i= </math>
<math>\ q \int_{-1}^{1} (-u^2+1) \frac {1}{2} du= \frac {q}{2}(-[ \frac {u^3}{3}]_{u=-1}^{u=1}+[u]_{u=-1}^{u=1})</math>. Terminando de operar, llegamos a lo siguiente: <math>\ \frac {q}{2}( \frac {-2}{3}+2)= \frac {2}{3}q</math>
Hacemos lo mismo pero con la parte central del canal, luego lo único que cambia son los límites de integración, en este caso <math>\ u∈(-0.5,0.5)</math>. Con ello, el flujo del campo vectorial en la parte central es <math>\ Q_{centro}= \frac {11}{24}q </math>.

Calculemos el porcentaje de caudal por el centro del canal
<math>\ {\%} Q_{central}= \frac{Q_{centro}}{Q_{total}}·100= \frac{11/24·q}{2/3·q}·100=68'75 {\%}. </math>.

Nótese que por la mitad central del canal no circula la mitad del caudal total, sino que es un porcentaje realmente elevado. Esto es debido a que la velocidad del fluido en el canal no es uniforme, si no que es máxima en el centro, descendiendo a partir de ahí siguiendo una progresión parabólica hasta las paredes, donde la velocidad es nula.

==Modelos Fórmulas (APARTADO EN SUCIO)==

MODELO MATRIZ: <math>\ \left|\begin{matrix} \vec g_ρ & \vec g_θ & \vec g_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u · \vec g_ρ & \vec u · \vec g_θ & \vec u · \vec g_z \end{matrix}\right| </math>.
MODELO INTEGRAL: <math>\ \int_{0}^{π}\int_{1}^{2}d(u,v)|\vec r_u(u,v)×\vec r_v(u,v)|dudv</math>

SÍMBOLOS: ∇ ∆ λ ρ μ σ θ ε ψ ×

[[Categoría:Teoría de Campos]]
[[Categoría:TC21/22]]