MateWiki - Contribuciones del usuario [es]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:43:32Z

Manuel Martín-Oar: /* Cálculo de \vec{\nabla T} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. El gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. Viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:grad_15122023.jpg|500px|miniaturadeimagen|center|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
%Derivadas parciales
FX=2*X.*cos(X.^2+(Y-3).^2);
FY=(2*Y-6).*cos(X.^2+(Y-3).^2);
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:ap5_15122023_2.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);%Calcular en papel en cartesianas!!!!!
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('Divergencia en 2D')
colorbar
view(2)
figure(14)
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('Divergencia en 3D')
colorbar
view(3)
}}

==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:43:10Z

Manuel Martín-Oar: /* Cálculo de \vec{\nabla T} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. El gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. Viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:grad_15122023.jpg|500px|miniaturadeimagen|center|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
%Derivadas parciales
FX=2*X.*cos(X.^2+(Y-3).^2);
FY=(2*Y-6).*cos(X.^2+(Y-3).^2);
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:ap5_15122023_2.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);%Calcular en papel en cartesianas!!!!!
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('Divergencia en 2D')
colorbar
view(2)
figure(14)
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('Divergencia en 3D')
colorbar
view(3)
}}

==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:40:46Z

Manuel Martín-Oar: /* Ley de Fourier aplicada a la energía calorífica \vec{Q} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:grad_15122023.jpg|500px|miniaturadeimagen|center|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
%Derivadas parciales
FX=2*X.*cos(X.^2+(Y-3).^2);
FY=(2*Y-6).*cos(X.^2+(Y-3).^2);
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:ap5_15122023_2.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);%Calcular en papel en cartesianas!!!!!
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('Divergencia en 2D')
colorbar
view(2)
figure(14)
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('Divergencia en 3D')
colorbar
view(3)
}}

==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Archivo:Ap5 15122023 2.jpg

2023-12-15T09:39:39Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:28:37Z

Manuel Martín-Oar: /* Cálculo de \vec{\nabla T} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:grad_15122023.jpg|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
%Derivadas parciales
FX=2*X.*cos(X.^2+(Y-3).^2);
FY=(2*Y-6).*cos(X.^2+(Y-3).^2);
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:27:06Z

Manuel Martín-Oar: /* Cálculo de \vec{\nabla T} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:grad_15122023.jpg|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2*x.*cos(x.^2+(y-3).^2);
%Derivada parcial respecto de Y=Fy=(2*y-6).*cos(x.^2+(y-3).^2);
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:26:33Z

Manuel Martín-Oar: /* Cálculo de \vec{\nabla T} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:grad_15122023|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2*x.*cos(x.^2+(y-3).^2);
%Derivada parcial respecto de Y=Fy=(2*y-6).*cos(x.^2+(y-3).^2);
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Archivo:Grad 15122023.jpg

2023-12-15T09:25:26Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:18:41Z

Manuel Martín-Oar: /* Cálculo de \vec{\nabla T} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2*x.*cos(x.^2+(y-3).^2);
%Derivada parcial respecto de Y=Fy=(2*y-6).*cos(x.^2+(y-3).^2);
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:08:06Z

Manuel Martín-Oar: /* Punto máximo de T */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> por lo que se puede ver claramente que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:01:51Z

Manuel Martín-Oar: /* Representación curvas de nivel de T */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> Nos muestran de una forma muy visual la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-15T09:00:49Z

Manuel Martín-Oar: /* Representación curvas de nivel de T */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 

[[Archivo:Representación_de_la_lámina_en_2D.png|400px|miniaturadeimagen|center|Representación gráfica del sólido en dos dimensiones.]]

{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/8:h:(7*pi)/8;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel o equipotenciales son líneas que unen los puntos de igual magnitud física, tal que <center><math>T(X,Y)=cte.</math></center> . Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido. 
La transmisión de calor, así como cualquier otro fenómeno físico de transmisión, se puede describir mediante la ecuación diferencial para la propagación unidimensional, que viene dada por la siguiente expresión:
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
Donde <math>\psi</math> es el campo correspondiente al fenómeno físico, en este caso, el campo de la temperatura T, y <math>a</math> una constante característica de la situación física (<math>\kappa</math>).
 
En el caso particular del transporte (en termodinámica denominado conducción) de calor, la ecuación empleada para llevar a cabo su estudio, es la respectiva a la ley de Fourier. 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío, al contrario que lo que nos indica el gradiente (dirección para ir de lo frío a lo caliente).
Por esta razón, el calor se desplaza en el sentido opuesto al que indica el gradiente. 

Por tanto, queda:
<center><math>\nabla T(x,y) = 2x \cdot cos[x^2+(y-3)^2] \vec i+ 2 \cdot (y-3) \cdot cos [x^2+(y-3)] \vec j</math></center>
 
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
 
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 

[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|650px|thumb|center|Desplazamiento provocado por el campo vectorial]]

{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide cuánto se expande o se contrae un cuerpo cuyas partículas están siendo desplazadas por una fuerza. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math>\vec{u}(ρ, θ) = \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{e_ρ})+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:Representación_de_la_divergencia_en_2D.png|400px|thumb|center|Divergencia del campo u representada en 2D]]
[[Archivo:Representación_de_la_divergencia_en_3D.png|400px|thumb|center|Divergencia del campo u representada en 3D]]

{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a utilizar la matriz Hessiana y sacar las derivadas del campo:
 
<center><math>H(u,v)=|\begin{matrix} \frac{\partial^2}{\partial u^2}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial u \cdot \partial v}\cdot \nabla\vec u \\ \frac{\partial^2}{\partial u \cdot \partial v}\cdot (\nabla\vec u) & \frac{\partial^2}{\partial v^2 }\cdot \nabla\vec {u} \end{matrix}\right|</math></center>
 
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \frac {log (3 − ρ)} {2} \cdot cos(2θ)\vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Roootacional.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
[[Archivo:Maxrotacionales.jpg|675px|thumb|center|Puntos máximos de los rotacionales del campo u en 2D y 3D]]
 
<center>Max1(0.7,0.7,0.693).</center>
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m, sin embargo, previamente ha de crearse una matriz mediante un bucle for. De este modo, se dará un valor concreto a cada componente de la matriz en cada punto del mallado. Esto es, debido a que las componentes originales de la matriz <math>\sigma</math> son funciones, y por lo tanto, tendrán un valor diferente para cada punto del mallado.
{{matlab|codigo=
%% Matriz Tensión de Von Mises
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}

Cabe destacar, que el comando eig genera dos matrices, una matriz v con los autovectores asociados a los autovalores (puestos en columnas), y otra matriz u diagonal construida a partir de dichos autovalores. Para la resolución de este apartado solo ha sido necesario hacer uso de la segunda.
==Representación de la Tensión de Von Mises==
A continuación se muestra tanto el código empleado, como la representación del campo escalar asociado a la matriz de Von Mises.
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==
El estudio de la tensión máxima, puede ser de gran utilidad en diversos campos de la ingeniería, siendo la resistencia de materiales el más notorio, y es que esta magnitud indica qué parte de un sólido está siendo sometida al mayor estrés. Adicionalmente, como ya se ha mencionado en el anterior apartado, se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro), por lo que se podrá concluir, que el punto de mayor valor de la tensión de Von Mises será, con mucha probabilidad, el punto de rotura. A continuación, se muestra el caso concreto de nuestra lámina, en el que se puede ver representado dicho punto mediante un círculo rojo.
{{matlab|codigo=
%% Punto máximo Von Misses
figure(14)
surf(X,Y,M_VonMises)
view(0,0)
axis equal
hold on
title('Von Mises en el plano X0Z')
xlabel('Eje x')
zlabel('Eje z')

MAX = max(max(M_VonMises));
for k = 1:length(M_VonMises)
if M_VonMises(k) == MAX
plot3(X(k),Y(k),MAX,'ro')
end
end
hold off
}}
[[Archivo:9876.jpg|400px|thumb|center|Representación del punto máximo del campo escalar de Von Mises]]
El valor obtenido para la máxima tensión se puede ver representado con un punto rojo en la gráfica y es 1,2005.
[[Categoría:Teoría de Campos]]
[[Categoría:TC23/24]]

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:36:48Z

Manuel Martín-Oar: /* Tensión de Von Mises */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) =\frac {log (3 − ρ)} {2}\cdot cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x^2 +(y−3)^2\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|600px|thumb|center|Desplazamiento provocado por el campo vectorial]]

[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones la tensión de Von Mises ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones la tensión de Von Mises]]

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:34:20Z

Manuel Martín-Oar: /* Tensión de Von Mises */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|600px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|left|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|right|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]
 
==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:33:50Z

Manuel Martín-Oar: /* Representación de la Tensión de Von Mises */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|600px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|left|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|right|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:33:29Z

Manuel Martín-Oar: /* Representación de la Tensión de Von Mises */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|600px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|right|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:33:06Z

Manuel Martín-Oar: /* Representación de la Tensión de Von Mises */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x^2+(y−3)^2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
<ol>1. Imagen de arriba a la izquierda: situación del sólido antes del desplazamiento. Coincide con la situación representada en el apartado 1.</ol>
<ol>2. Imagen de arriba a la derecha: situación del sólido después del desplazamiento. Observamos cómo ciertos puntos de la placa se han desplazado hacia abajo, justo la dirección a la que apuntan los vectores del campo vectorial representado en el apartado 4.</ol>
<ol>3. Imagen de abajo: imágenes 1 y 2 superpuestas. Se puede apreciar mejor la diferencia entre las dos situaciones.</ol> 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|600px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}
[[Archivo:2D_ap10_14122023.jpg|400px|thumb|left|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap10_14122023.jpg|400px|thumb|right|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

==Punto de mayor valor==

Archivo:2D ap10 14122023.jpg

2023-12-14T21:31:38Z

Manuel Martín-Oar:

Archivo:3D ap10 14122023.jpg

2023-12-14T21:31:11Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:27:57Z

Manuel Martín-Oar: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal a \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:27:02Z

Manuel Martín-Oar: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal a \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:26:20Z

Manuel Martín-Oar: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal a \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|left|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|right|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]] 

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:25:55Z

Manuel Martín-Oar: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal a \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|left|Campo escalar que representa en dos dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math> ]]
[[Archivo:3D_ap9_14122023.jpg|400px|thumb|right|Campo escalar que representa en tres dimensiones las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:24:31Z

Manuel Martín-Oar: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal a \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Situación_de_la_placa_antes_y_después_del_desplazamiento.png|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|left|Campo escalar que representa las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:23:41Z

Manuel Martín-Oar: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal a \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:23:17Z

Manuel Martín-Oar: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal a \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Representación_de_la_Ley_de_Fourier.png|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Representación_del_campo_vectorial_u_sobre_la_placa.png|375px|thumb|right|Campo vectorial u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}
[[Archivo:2D_k_ap9_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Archivo:3D ap9 14122023.jpg

2023-12-14T21:21:31Z

Manuel Martín-Oar:

Archivo:2D ap9 14122023.jpg

2023-12-14T21:21:19Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:13:35Z

Manuel Martín-Oar: /* Código Matlab */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>, las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:13:08Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_z} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:12:47Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\theta} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:12:27Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Ortogonalidad_del_gradiente_frente_a_las_curvas_de_nivel.png|420px|miniaturadeimagen|right|Representación gráfica de la ortogonalidad presente entre el gradiente y las curvas de nivel]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023_2.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Archivo:3D k sigma k 14122023 2.jpg

2023-12-14T21:12:01Z

Manuel Martín-Oar:

Archivo:3D j sigma j 14122023 2.jpg

2023-12-14T21:11:49Z

Manuel Martín-Oar:

Archivo:3D i sigma i 14122023 2.jpg

2023-12-14T21:11:31Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:03:02Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_z} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 
[[Archivo:3D_k_sigma_k_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\z}</math>]]

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Archivo:3D k sigma k 14122023.jpg

2023-12-14T21:02:10Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:01:08Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\theta} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:3D_j_sigma_j_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T21:00:21Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\theta} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 
[[Archivo:j_sigma_j_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\theta}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Archivo:3D j sigma j 14122023.jpg

2023-12-14T20:59:15Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T20:58:23Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:3D_i_sigma_i_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Archivo:3D i sigma i 14122023.jpg

2023-12-14T20:57:54Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T20:50:50Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:i_sigma_i_14122023.jpg|400px|thumb|center|Campo escalar que representa las tensiones normales en la dirección de <math>\vec{e_\rho}</math>]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T20:49:30Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:i_sigma_i_14122023.jpg|400px|thumb|center| ]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T20:48:18Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:i_sigma_i_14122023.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T20:47:39Z

Manuel Martín-Oar: /* Tensiones normales en la dirección de \vec{e_\rho} */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano: 
<center><math>y≥\frac{|x|}{2}</math></center> 
Este plano limita la placa circular entre <math>\frac{\pi}{8}</math> y <math>\frac{7\pi}{8}</math> como podemos observar en la siguiente figura. 
[[Archivo:Planoo.png|375px|miniaturadeimagen|center|Plano en el que está contenida la placa circular]]

En todas las figuras que se mostrarán a lo largo del artículo, dibujaremos los ejes en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. 

También se suponen definidas las siguientes cantidades físicas:
<ol>1. El campo escalar temperatura: <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math>, expresado en coordenadas cartesianas 
2. El campo vectorial de desplazamientos: <math> \vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math>, expresado en coordenadas cilíndricas </ol>

Con estos datos, se procede a responder a las siguientes cuestiones: 

=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|center|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:Representación_del_campo_escalar_temperatura.png|375px|miniaturadeimagen|center|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:Curvas123.jpg|375px|center|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

En esta imagen podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. Esto se debe a que el gradiente es la dirección de máxima variación de la temperatura, mientras que en las curvas de nivel no hay variación de temperatura. Por tanto, el gradiente debe ser perpendicular a las curvas de nivel. 

[[Archivo:Gradiente_de_T.jpg|445px|miniaturadeimagen|right|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Representación gráfica de la ley de Fourier aplicada a la temperatura]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 
[[Archivo:Desplazamientos_todos.jpg|575px|thumb|center|Desplazamiento provocado por el campo vectorial]]
==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
[[Archivo:Antes_desplazamiento.jpg|375px|thumb|center|Sólido antes del desplazamiento]]
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
[[Archivo:Despues_desplazamiento.jpg|375px|thumb|center|Sólido después del desplazamiento]]
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
[[Archivo:comparacion_desplazamientos.jpg|375px|thumb|center|Comparación pre y post desplazamiento]]
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
[[Archivo:divergenciia.jpg|400px|thumb|right|Divergencia del campo u]]
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 
[[Archivo:Rotacions.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]
{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 
[[Archivo:i_sigma_1_14122023.jpg|675px|thumb|center|Rotacionales del campo u en 2D y 3D]]

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Archivo:I sigma i 14122023.jpg

2023-12-14T20:44:28Z

Manuel Martín-Oar:

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T12:40:34Z

Manuel Martín-Oar: /* Dibujo de \nabla \cdot \vec{u} en t=0 */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de un anillo circular centrado en el origen y comprendido entre los radios 1 y 2. Dicha placa está contenida en el plano <math>y≥\frac{|x|}{2}</math> y nos centraremos en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. También se suponen definidas las cantidades físicas de: la temperatura <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math> y el campo de desplazamientos: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> (Proporcionadas en coordenadas cartesianas y cilíndricas respectivamente). 
Con estos datos, se procede a responder a las siguientes cuestiones:
 
=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|derecha|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:fotoplaca.jpg|375px|miniaturadeimagen|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:A_._2.jpg|375px|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
 
[[Archivo:punto_max.jpg|375px|thumb|center|Punto máximo de la temperatura en la placa]]
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

[[Archivo:Gradiente_de_T.jpg|375px|miniaturadeimagen|derecha|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

==Ortogonalidad de <math>\vec{\nabla T}</math> respecto a las curvas de nivel==
Al igual que en el apartado 2.3, con el comando "quiver" representamos el campo vectorial <math>\vec{\nabla T}</math>. De nuevo, haciendo uso del comando "hold on" podemos representar dos gráficos superpuestos. Así que representamos el gradiente sobre las curvas de nivel y, ajustando los ejes para que tengan la misma escala, podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. 

Esto se debe a que: como el gradiente es la dirección de máxima variación de la temperatura, y en las curvas de nivel no hay variación de temperatura; el gradiente debe ser perpendicular a las curvas de nivel. 

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivadas parciales
%X=Fx=2.*cos(2.*X+2.*(Y-3));
%Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
[[Archivo:Ley_de_Fourier.jpg|375px|thumb|center|Ley de Fourier]]
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

[[Archivo:Campo_vectores_u.jpg|375px|thumb|right|Campo de vectores u en t=0]]

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 

==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
La divergencia mide la diferencia entre el flujo saliente y el flujo entrante de un campo vectorial sobre la superficie que rodea a un volumen de control. 
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 

{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T12:30:17Z

Manuel Martín-Oar: /* Dibujo de \nabla \cdot \vec{u} en t=0 */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de un anillo circular centrado en el origen y comprendido entre los radios 1 y 2,en el plano <math>y≥\frac{|x|}{2}</math> en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. También se suponen definidas las cantidades físicas de: la temperatura <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math> y el campo de desplazamientos: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> (Proporcionadas en coordenadas cartesianas y cilíndricas respectivamente). 
Con estos datos, se procede a responder a las siguientes cuestiones:
 
=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|derecha|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 
[[Archivo:fotoplaca.jpg|375px|miniaturadeimagen|Representación gráfica del mapa de calor de la función temperatura T]]
 
{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}
 
 
==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:A_._2.jpg|375px|miniaturadeimagen|Representación gráfica de las curvas de nivel de la función temperatura T]]
 
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}
 
 

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
 
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
[[Archivo:punto_max.jpg|375px|miniaturadeimagen]]
 
 

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

[[Archivo:Gradiente_de_T.jpg|375px|miniaturadeimagen|derecha|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

==Ortogonalidad de <math>\vec{\nabla T}</math> respecto a las curvas de nivel==
Al igual que en el apartado 2.3, con el comando "quiver" representamos el campo vectorial <math>\vec{\nabla T}</math>. De nuevo, haciendo uso del comando "hold on" podemos representar dos gráficos superpuestos. Así que representamos el gradiente sobre las curvas de nivel y, ajustando los ejes para que tengan la misma escala, podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. 

Esto se debe a que: como el gradiente es la dirección de máxima variación de la temperatura, y en las curvas de nivel no hay variación de temperatura; el gradiente debe ser perpendicular a las curvas de nivel. 

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivadas parciales
%X=Fx=2.*cos(2.*X+2.*(Y-3));
%Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center> 

El motivo por el cual la ley de Fourier incorpora un signo menos, tiene una explicación meramente física. Por el 2º Principio de la Termodinámica sabemos que al juntar un foco caliente y uno frío, el calor se transmite del foco caliente al foco frío.

Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él. 

==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 

{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==

Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas)

2023-12-14T12:07:32Z

Manuel Martín-Oar: /* Cálculo de las curvas de nivel del campo de temperaturas */

{{ TrabajoED | Elasticidad en Campos Escalares y Vectoriales (Coordenadas Cilíndricas) - Grupo 4-C | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC23/24|2023-24]] | Juan Casteres Cortiñas Jorge Martínez Rodríguez-Malo Manuel Martín-Oar Faustmann Sandra Fuzhen Rodríguez Ibáñez}}
En el siguiente trabajo se expondrán los cálculos relacionados con el estudio de diferentes campos escalares y vectoriales, así como su influencia en un sólido curvado. Para ello se hará uso de coordenadas cartesianas y cilíndricas. 

Se considera una placa una placa plana que ocupa un cuarto de un anillo circular centrado en el origen y comprendido entre los radios 1 y 2,en el plano <math>y≥\frac{|x|}{2}</math> en la región <math>(x, y) ∈ [−3, 3] × [−1, 3]</math>. También se suponen definidas las cantidades físicas de: la temperatura <math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math> y el campo de desplazamientos: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> (Proporcionadas en coordenadas cartesianas y cilíndricas respectivamente). 
Con estos datos, se procede a responder a las siguientes cuestiones:
 
=Dibujo Lámina=
Para el dibujo del mallado se tomará la región dada: una parte de un anillo. Como paso de muestreo para las variables <math>x</math> e <math>y</math>, tomaremos <math>\frac{1}{10}</math>, contrariamente a los <math>\frac{2}{10}</math> que propone el enunciado. Esto, es debido a que un paso de muestreo menor produce una malla con más puntos, y por lo tanto, con más detalle. Es por ello, que la elección de <math>\frac{1}{10}</math> proporciona un buen balance entre detalle y claridad para todos los problemas planteados a lo largo de este artículo. 

Para llevar a cabo el dibujo de la lámina (sólido), se ha empleado el programa informático MATLAB, debido a sus buenas prestaciones y sus múltiples facilidades a la hora de graficar problemas matemáticos.
 
Al tratarse de una geometría circular, se emplearán coordenadas cilíndricas. Sin embargo, MATLAB únicamente trabaja en coordenadas cartesianas, por lo que todos los resultados se parametrizarán para expresarlos de tal forma. 
[[Archivo:SoLiDo.jpg|375px|miniaturadeimagen|derecha|Representación gráfica de una lámina sólida en forma de cuarto de círculo]]
{{matlab|codigo=
%Dibujo Lámina (sólido)
%% Datos y Variables
h=1/10; %Coordenadas r y t
r=1:h:2;
t=pi/4:h:(3*pi)/4;
%% Cálculo de coordenadas
[U,V]=meshgrid(r,t); %Generación de la retícula
X=U.*cos(V); %parametrización
Y=U.*sin(V);
%% Dibujo de la malla
mesh(X,Y,0*X);
axis([-3,3,-1,3]); % definimos ejes
title('Lámina');
xlabel('X');
ylabel('Y');
grid on;
view(2);
}}
 

[[Archivo:fotoplaca.jpg|375px|miniaturadeimagen|Representación gráfica del mapa de calor de la función temperatura T]]
=Cálculo de las curvas de nivel del campo de temperaturas=
La temperatura del sólido viene dada por el siguiente campo escalar: 
<center><math>T(x,y)=sin(x\cdot 2+(y−3)\cdot2)</math></center> 

Si introducimos la expresión del campo en MATLAB, podemos representarlo gráficamente con el comando "surf", obteniendo la imagen que se presenta a continuación. 

{{matlab|codigo=
%% Cálculo función de Temperatura
T=sin(X.^2+(Y-3).^2);
%% Gráfico Mapa Térmico
figure(1);
surf(X,Y,T);
title('Temperatura');
view(2);
axis equal;
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
}}

==Representación curvas de nivel de T==
Las curvas de nivel son líneas que unen los puntos del mismo valor. Esto nos muestra de una forma muy visual de la variación de la función temperatura. Es posible representar estas curvas en MATLAB mediante el comando "contour".
 
Las zonas de la gráfica que presentan colores más azulados son aquellas en las que la temperatura es menor, mientras que en las más amarillentas la temperatura es mayor.
 
Las partes en las que aparecen zonas blancas son aquellas en las que la temperatura es nula. 
[[Archivo:A_._2.jpg|275px|miniaturadeimagen|derecha|Representación gráfica de las curvas de nivel de la función temperatura T]]
{{matlab|codigo=
%% Gráfico Curvas de Nivel
figure(2);
contour(X,Y,T,50);
title('Curvas de Nivel');
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
colorbar
}}

==Punto máximo de T==
Para la función <math>T(x,y)</math> cabe recalcar que los valores máximos y mínimos se alcanzan en el intervalo <math>x ∈ [−1,1]</math> lo que nos da a entender que se trata de una función trigonométrica seno. 
[[Archivo:punto_max.jpg|275px|miniaturadeimagen|derecha|Representación gráfica del punto máximo de la función temperatura T en la lámina de trabajo]]
En los dos gráficos obtenidos, tanto el del campo escalar temperatura como el de las curvas de nivel de dicho campo, podemos hacer zoom y observar que en ambos casos que el punto de la gráfica en el que la temperatura es mayor es aproximadamente el (0,2). 
INTRODUCIR IMAGENES AMPLIADAS

==Cálculo de <math>\vec{\nabla T}</math>==
Podríamos calcular el gradiente del campo escalar T(x,y) analíticamente mediante las fórmulas vistas en clase. Sin embargo, introduciendo el campo escalar "T" y el paso "h" utilizado en apartados anteriores, el comando "gradient" nos lo calcula directamente. 

El comando "contour" nos permite dibujar las curvas de nivel (apartado 2.1) y el comando "quiver" nos permite representar el campo vectorial gradiente. Por tanto, si representamos ambos a la vez mediante el comando "hold on", obtenemos el gráfico de <math>\vec{\nabla T}</math> sobre las curvas de nivel de <math>T(x,y)</math>. 

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivada parcial respecto de X=Fx=2.*cos(2.*X+2.*(Y-3));
%Derivada parcial respecto de Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

==Ortogonalidad de <math>\vec{\nabla T}</math> respecto a las curvas de nivel==
Al igual que en el apartado 2.3, con el comando "quiver" representamos el campo vectorial <math>\vec{\nabla T}</math>. De nuevo, haciendo uso del comando "hold on" podemos representar dos gráficos superpuestos. Así que representamos el gradiente sobre las curvas de nivel y, ajustando los ejes para que tengan la misma escala, podemos apreciar que los vectores del gradiente son perpendiculares a las curvas de nivel. 

Esto se debe a que las curvas de nivel unen los puntos de igual temperatura, por tanto en la curva de nivel no hay variación de temperatura. Por el contrario, el gradiente muestra la dirección de máximo crecimiento, es decir, en la dirección del gradiente se encuentra la máxima variación de temperatura. Entonces, como representan cosas opuestas, son perpendiculares. 

{{matlab|codigo=
%% Gradiente de la Temperatura
[FX,FY]=gradient(T,h); %Cálculo del gradiente discretizando h
%Derivadas parciales
%X=Fx=2.*cos(2.*X+2.*(Y-3));
%Y=Fy=2.*cos(2.*X+2.*(Y-3));
figure(4);
contour(X,Y,T,50);
title('\nablaT');
xlabel('X');
ylabel('Y');
view(2);
axis equal
axis([-3,3,-1,3]);
colorbar
hold on
quiver(X,Y,FX,FY)
axis equal
axis([-3,3,-1,3]);
view(2)
}}

=Ley de Fourier aplicada a la energía calorífica <math>\vec{Q}</math>=
La energía calorífica es un término utilizado en el campo de la termodinámica, para referirse a aquella energía asociada al calor que recibe, desprende o transmite un cuerpo. Un ejemplo físico muy común de la aplicación de esta fórmula es la transmisión de calor, y por tanto, variación de temperatura a lo largo de un sólido.
<center><math>\frac{\partial\psi}{\partial t}=a\frac{\partial^2\psi}{\partial x^2}</math></center>
 
Según la Ley de Fourier, la energía calorífica <math>\vec{Q}</math> viaja de acuerdo a la fórmula <math>\vec{Q} = −\kappa\nabla T</math>, donde <math>\kappa</math> es la constante de conductividad térmica de la placa que supondremos κ = 1. 
Sabiendo que el gradiente de la temperatura representa la dirección de más velocidad de cambio de la función. El cual viene dado por: 
<center><math>\nabla T(x,y) =\frac{∂T}{∂X}\vec i + \frac{∂T}{∂Y}\vec j </math></center>
Por tanto, queda:
<center><math>\nabla T(x,y) =2\cdot cos[2\cdot (x+y-3)] \vec i+ 2\cdot cos[2\cdot (x+y-3)] \vec j</math></center>
Una propiedad característica del gradiente es la ortogonalidad a las curvas de nivel que hemos representado en el apartado anterior.
{{matlab|codigo=
%% Ley de Fourier
figure(5);
title('Q=-k\nablaT');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial Fourier
quiver(X,Y,-FX,-FY)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Dibujo de un campo vectorial sobre el mallado, en t=0=
Partimos del campo vectorial dado: 
<center><math>\vec{u}(ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math></center> 
Lo parametrizamos como se muestra en las líneas 3 y 5 del código. Esto lo hacemos para tener <math>\vec{u}</math> expresado en coordenadas cartesianas, ya que MATLAB no puede representarlo si está expresado en cilíndricas. 

Posteriormente, representamos dicho campo vectorial sobre nuestro sólido mediante la función "quiver", obteniendo el gráfico que se muestra a continuación.

{{matlab|codigo=
%%Campo en t=0
%Componente x campo vectorial (Nueva parametrización)
ui=((log(3-U))./2).*cos(2.*V).*cos(V);
%Componente y campo vectorial
uj=((log(3-U))./2).*cos(2.*V).*sin(V);
figure(6);
title('Campo de vectores u en t=0');
xlabel('X');
ylabel('Y');
view(2);
hold on
%Representación campo vectorial u
quiver(X,Y,ui,uj)
axis equal
axis([-3,3,-1,3])
view(2)
}}

=Desplazamiento provocado por el campo vectorial <math>\vec{u}</math>=
Dado el campo: <math> u (ρ, θ) = log (3 − ρ) 2 cos(2θ)\vec{e_ρ} </math> queremos representar el desplazamiento que experimenta nuestro sólido a causa de él.

==Dibujo antes del desplazamiento==
Previo al desplazamiento, la posición del sólido es idéntica a la representada en el apartado 1.
{{matlab|codigo=
%Inicio
subplot(2,2,1);
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g')
title('Situación antes del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Dibujo después del desplazamiento==
Tras la actuación del campo vectorial <math>\vec{u}</math>, la posición del sólido es la siguiente:
{{matlab|codigo=
%Después del desplazamiento
subplot(2,2,2);
mesh(X+ui,Y+uj,X*0);
title('Situación después del desplazamiento');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

==Comparación pre y post deplazamiento==
{{matlab|codigo=
%Comparación entre ambas situaciones
subplot(2,2,3.5);
mesh(X+ui,Y+uj,X*0);
hold on
j=mesh(X,Y,X*0);
set(j,'EdgeColor','g');
title('Comaparación');
xlabel('X');
ylabel('Y');
axis equal;
axis([-3,3,-1,3])
view(2);
}}

=Dibujo de <math>\nabla \cdot \vec{u}</math> en t=0=
En coordenadas cilíndricas, el operador diferencial de la divergencia de campos vectoriales viene dado por: 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho·\vec{ u_ρ })+\frac{\partial}{\partial{\theta}}({\vec u_\theta })+\frac{\partial}{\partial{z}}({\rho·\vec u_z })]</math></center>
 
Tomando nuestro campo vectorial: <math> u (\rho, \theta) = log (3 − \rho) 2 cos(2\theta)\vec{e_\rho} </math>, sustituimos en la ecuación de arriba:
 
<center><math>\nabla\cdot\vec{u}=\frac{1}{ρ}\cdot[\frac{\partial}{\partial\rho}(\rho· log (3 − ρ) 2 cos(2θ))+\vec 0 ({\vec u_\theta })+\vec 0({\rho·\vec u_z })] = \frac{(-cos(2V)}{2 \cdot (3-U)}+ \frac{(log(3-U)\cdot cos(2V)}{2U} </math></center>
 
Siendo U y V los parámetros asociados respectivamente a las coordenadas <math>\rho</math> y <math>\theta</math>.
 
{{matlab|codigo=
%% Divergencia
figure(8)
div=((-cos(2.*V))./(2.*(3-U)))+((log(3-U).*cos(2.*V))./2.*U);
surf(X,Y,div)
axis equal
axis([-3,3,-1,3]);
xlabel('X');
ylabel('Y');
title('divergencia')
colorbar
view(2)
}}
==Análisis de <math>\nabla \cdot \vec{u}</math>==
Se pide determinar de forma analítica los puntos en los que la divergencia de <math>\vec{u}</math> es máxima, mínima y nula. Por lo que habiendo calculado el valor de <math>\nabla\cdot\vec{u}</math> en el apartado anterior, se procede a sacar sus derivadas e igualarlas a 0:
<center><math>\frac{\partial}{\partial u}(\nabla \cdot \vec{u})= \frac{-cos(2 \cdot v) \cdot [3u+(u-3)^2 \cdot log(3-u)]}{2 \cdot (3-u)^2\cdot u^2}=0</math></center>
 
<center><math>\frac{\partial}{\partial v}(\nabla \cdot \vec{u})= \frac{sin(2 \cdot v) \cdot [3u+(u-3) \cdot log(3-u)]}{(3-u)\cdot u}=0</math></center>
 

==Representación del cambio de volumen==

=Cálculo y dibujo de <math>|\nabla \times \vec{u}|</math> en t=0=
El rotacional de un campo vectorial muestra la tendencia de un campo a inducir rotación alrededor de un punto. En coordenadas cilíndricas, el operador diferencial del rotacional de campos vectoriales viene dado por: 
<center><math>\nabla×\vec u(ρ,θ) = \frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \vec u_ρ & \vec ρu_θ & \vec u_z \end{matrix}\right|</math></center> 

Sustituyendo para los valores de nuestro campo y operando, obtenemos: 
<center><math>\frac{1}{ρ}\left|\begin{matrix} \vec e_ρ & \vec e_θ & \vec e_z \\ \frac{\partial}{\partial ρ} & \frac{\partial}{\partial θ} & \frac{\partial}{\partial z} \\ \ log (3 − ρ) 2 cos(2θ) \vec{u_ρ} & 0 & 0 \end{matrix}\right| = (\frac {1}{ρ} \cdot (-sin(2\cdot θ))\cdot log(3-ρ)) \vec{e_z}</math>.</center> 

Tras calcular <math>\nabla \times \vec{u}</math>, sabemos que es un campo vectorial. Sin embargo, lo pedido es <math>|\nabla \times \vec{u}|</math>, que es un campo escalar. Por tanto, se hace se procede a hacer el módulo del rotacional calculado anteriormente. 

Al introducir el campo en MATLAB, parametrizamos poniéndolo en función de U y V: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V)) \vec{e_z}</math></center> 

Por tanto, el módulo será: 
<center><math> (\frac {1}{V} \cdot (-sin(2\cdot U))\cdot log(3-V))</math></center> 

Si representamos gráficamente el campo escalar calculado, obtenemos las figuras que se muestran debajo. 

{{matlab|codigo=
figure(9)
ROT=sqrt(((1./U).*(-sin(2*V)).*log(3.-U)).^2); %Módulo del campo escalar.
%%ROT=abs((1./U).*(-sin(2*V)).*log(3.-U)); %Valor absoluto del campo.
subplot(1,2,1)
%Rotacional en 2D
pcolor(X,Y,ROT);
colorbar;
title('Rotacional en 2D');
xlabel('Eje X');
ylabel('Eje Y');
axis on;
axis([-3,3,-1,3]);
hold on
plot(0.7,0.7,'ro') %Máximo 1 en gráfico 2D
hold on
plot(-0.65,0.75,'ro') %Máximo 2 en gráfico 2D
%Rotacional en 3D
subplot(1,2,2)
surf(X,Y,ROT);
view(3)
colorbar;
title('Rotacional en 3D');
xlabel('Eje X');
ylabel('Eje Y');
zlabel('Eje Z');
axis on
axis([-3,3,-1,3]);
hold on
plot3(0.7,0.7,0.693,'ro') %Máximo 1 en gráfico 3D
hold on
plot3(-0.65,0.75,0.693,'ro') %Máximo 2 en gráfico 3D
}}

==Cálculo punto máximo del rotacional==
Como puntos máximos de rotacional, como se puede observar en el gráfico, nos quedan los siguientes puntos:
 
<center>Max1(0.7,0.7,0.693).</center>
 
<center>Max2(-0.65,0.75,0.693)</center>
 
Los cuales están señalados en ambos gráficos con un círculo rojo.

=Tensor Tensiones=
En un medio elástico lineal, isótropo y homogéneo se puede describir el tensor de tensiones mediante la expresión: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon</math></center> 
Donde 1 es el tensor identidad, <math>\lambda=\mu=1</math> , <math>\epsilon</math> es el tensor deformaciones que viene dado por <math>\epsilon(\vec{u})=(\nabla\vec{u}+\nabla\vec{u}^t)/2</math> y <math>\nabla\cdot\vec{u}</math> es la divergencia del campo <math>\vec{u}</math>. 
Partiendo de la expresión matricial del gradiente, podemos calcular su parte simétrica, es decir, <math>\epsilon</math>: 
<center><math>\epsilon=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{2\cdot\rho} & \frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & 0 \end{pmatrix} </math></center> 
La matriz identidad multiplicada por la divergencia del campo <math>\vec{u}</math> da como resultado la matriz: 
<center><math>\nabla\cdot\vec{u}1=\begin{pmatrix} \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0 & 0\\ 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 
Por lo tanto, operando con las matrices anteriores se obtiene la matriz del tensor tensiones: 
<center><math>\sigma=\lambda\nabla\cdot\vec{u}1+2\mu\epsilon=\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} </math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\rho}</math>==
Vienen definidas por <math>\vec{e_\rho}·\sigma·\vec{e_\rho}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{i}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{i}</math>. 
<center><math>\vec{e_\rho}·\sigma·\vec{e_\rho}=\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix} \begin{pmatrix} 1 & 0 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 1 & 0 & 0 \end{pmatrix}=</math><math>\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_\theta}</math>==
Vienen definidas por <math>\vec{e_\theta}·\sigma·\vec{e_\theta}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{j}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{j}</math>. 
<center><math>\vec{e_\theta}·\sigma·\vec{e_\theta}=\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}
\end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0 \end{pmatrix}\begin{pmatrix} 0 & 1 & 0 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho}</math></center> 

==Tensiones normales en la dirección de <math>\vec{e_z}</math>==
Vienen definidas por <math>\vec{e_z}·\sigma·\vec{e_z}</math>. Por tanto, multiplicando la matriz <math>\sigma</math> a ambos lados por el vector unitario <math>\vec{k}</math>, obtenemos las tensiones normales en la dirección de <math>\vec{k}</math>. 
<center><math>\vec{e_z}·\sigma·\vec{e_z}=\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}\begin{pmatrix} \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}</math></center> 

<center><math>\begin{pmatrix} 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix} 0 & 0 & 1 \end{pmatrix}=</math><math>\frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} </math></center> 

==Código Matlab==
{{matlab|codigo=
%% Apartado 8
i_sig_i=(-3./2).*(cos(2.*V)./(3-U))+(log(3-U).*cos(2.*V))./(2.*U);
j_sig_j=(-cos(2.*V)./(2.*(3-U)))+(3./2).*((log(3-U).*cos(2.*V))./U);
k_sig_k=(-cos(2.*V)./(2.*(3-U)))+((log(3-U).*cos(2.*V))./(2.*U));
figure(10)
subplot(2,2,1)
surf(X,Y,i_sig_i)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('i·\sigma·i')
subplot(2,2,2)
surf(X,Y,j_sig_j)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('j·\sigma·j')
subplot(2,2,3.5)
surf(X,Y,k_sig_k)
view(2)
axis equal
axis([-3,3,-1,3]);
colorbar
title('k·\sigma·k')
}} 
Los tres campos escalares resultantes representan las tensiones normales en la dirección que marca el eje <math>\vec{e_\rho}</math>,las tensiones normales en la dirección que marca el eje <math>\vec{e_\theta}</math>, y las correspondientes al eje <math>\vec{e_z}</math>.

=Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>=
Dichas tensiones vienen definidas por la expresión: 
<center><math>|\sigma\cdot\vec{e_\rho}-(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}|</math></center> 
Puesto que <math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})</math> lo tenemos calculado del apartado 8.2, bastará con multiplicar el valor hallado por <math>\vec{e_\rho}</math>. 
<center><math>(\vec{e_\rho}\cdot\sigma\cdot\vec{e_\rho})\vec{e_\rho}</math><math> = \frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}</math><math>\vec{e_\rho}</math><math> = \begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}</math></center> 
<math>\sigma\cdot\vec{e_\rho}</math> se calcula de la siguiente forma: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\\ \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{3}{2}\cdot\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{\rho} & 0\\ 0 & 0 & \frac{-cos(2\cdot\theta)}{2\cdot(3-\rho)}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} \end{pmatrix}\begin{pmatrix}1 & 0 & 0\end{pmatrix}</math></center> <center><math>=\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Por lo tanto, el vector solución resultante de la resta de los anteriores es: 
<center><math>\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho} & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0 \end{pmatrix}-\begin{pmatrix}\frac{3}{2}\cdot\frac{-cos(2\cdot\theta)}{3-\rho}+\frac{log(3-\rho)\cdot cos(2\cdot\theta)}{2\cdot\rho}& 0 & 0\end{pmatrix}=\begin{pmatrix}0 & \frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho} & 0\end{pmatrix}</math></center> 
Dado que en Matlab se trabaja en coordenadas cartesianas, Es necesario pasar de la base física cilíndrica a la cartesiana. 
<center><math>(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\vec{e_\theta}=(\frac{-log(3-\rho)\cdot sin(2\cdot\theta)}{\rho})\cdot(-sen(\theta))\vec{i}+cos(\theta)\vec{j})=\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho}\vec{i}-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho}\vec{j}</math></center> 
Por lo tanto el módulo queda tal que: 
<center><math>\sqrt{(\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot sin(\theta)}{\rho})^2+(-\frac{log(3-\rho)\cdot sin(2\cdot\theta)\cdot cos(\theta)}{\rho})^2}</math></center>
{{matlab|codigo=
tti=((log(3-U).*sin(2.*V).*sin(V)./U));
ttj=((-log(3-U).*sin(2.*V).*cos(V)./U));
mod=sqrt((tti.^2)+(ttj.^2));
figure(11)
hold on
mesh(X,Y,X.*0)
surf(X,Y,mod)
axis equal
axis([-3,3,-1,3]);
title('módulo de tensiones tangenciales respecto al plano ortogonal a i');
}}

=Tensión de Von Mises=
La tensión de Von Mises viene definida por la fórmula:

<center><math> \sigma_{VM}= \sqrt{\frac{(\sigma_1-\sigma_2)^2+(\sigma_2-\sigma_3)^2(\sigma_3-\sigma_1)^2}{2}}</math></center>
 
donde <math>\sigma_1 , \sigma_2 , \sigma_3 </math> son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).
 
Para sacar los autovalores en MATLAB se utiliza el comando eig.m
{{matlab|codigo=
%% Matriz Tensión de Von Misses
sig=[];
M_VonMises=zeros(length(t),length(r));
a=@(UU,VV)(-3./2).*(cos(2.*VV)./(3-UU))+(log(3-UU).*cos(2.*VV))./(2.*UU);
b=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+(3./2).*((log(3-UU).*cos(2.*VV))./UU);
c=@(UU,VV)(-cos(2.*VV)./(2.*(3-UU)))+((log(3-UU).*cos(2.*VV))./(2.*UU));
d=@(UU,VV)((-log(3-UU).*sin(2.*VV))./UU);

%fila1=[a,d,0];
%fila2=[d,b,0];
%fila3=[0,0,c];
%sigma=[fila1;fila2;fila3]

% Se ha de asignar a la matriz "M_VonMises" los valores
% de la tensión de Von Mises en cada punto de la placa.
for i=1:length(t)
for j=1:length(r)
sig(1,1)=a(U(i,j),V(i,j));
sig(1,2)=d(U(i,j),V(i,j));
sig(1,3)=0;
sig(2,1)=d(U(i,j),V(i,j));
sig(2,2)=b(U(i,j),V(i,j));
sig(2,3)=0;
sig(3,1)=0;
sig(3,2)=0;
sig(3,3)=c(U(i,j),V(i,j));
[v,u]=eig(sig);%Autovalores
M_VonMises(i,j)=sqrt(((u(1,1)-u(2,2)).^2+((u(2,2)-u(3,3)).^2)+((u(3,3)-u(1,1)).^2))/2);
end
end
% Von Mises.
}}
==Representación de la Tensión de Von Mises==
{{matlab|codigo=
%Representación Von Mises
figure(12)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(2)
figure(13)
surf(X,Y,M_VonMises);
% Se pone título a la gráfica.
title('Von Mises');
% Se da nombre a los ejes.
xlabel('Eje de las X');
ylabel('Eje de las Y');
axis equal
axis([-3,3,-1,3]);
% Se da equidistancia a los ejes.
% Se le aplica una barra con colores en función
% de la tension de Von Mises en cada punto.
colorbar;
view(3)
}}

==Punto de mayor valor==