MateWiki - Contribuciones del usuario [es]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-07T22:09:31Z

Miguelangel.ibanez: /* Póster del trabajo */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

'''Enlace de descarga al póster del trabajo en formato PDF''': [https://drive.google.com/file/d/1wNLKkgfCR23ooZmtUrFso7rR3kbiOJIN/view?usp=sharing Póster Grupo 23]

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas XX e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Ej8_G23.jpg|400px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{e_\rho}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Ej9_G23.jpg| 500px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}

==Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>==
Al igual que en el apartado 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Ej10_G23.jpg| 378px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la masa de un campo en coordenadas polares cilíndricas==
La masa se calcula como la integral de una función de densidad sobre el dominio de la superficie. En este caso, se aplica una integral doble puesto que la densidad viene definida en dos variables, <math>\rho</math> y <math>\theta</math>. 
Dado el campo escalar <math>d(\rho, \theta) = 1 + e^{\rho^{2} \cos \theta}</math>, se tiene en cuenta que los límites de integración para cada variable vendrán dados por la definición de la superficie plana, hallada en apartados anteriores. Dichos límites serán: <math>\rho=[1, 2]</math> y <math>\theta=[0,\pi]</math> 
Ahora ya podemos definir la integral doble que debemos calcular para hallar la masa: 
<center><math>M = \int_{0}^{\pi} \int_{1}^{2} \left(1 + e^{\rho^2 \cos \theta}\right) \rho \, d\rho \, d\theta</math></center>
Para simplificar, dividimos la integral en dos términos de la siguiente manera:
 <center><math>M = \int_{0}^{\pi} \int_{1}^{2} \rho \, d\rho \, d\theta + \int_{0}^{\pi} \int_{1}^{2} \rho e^{\rho^2 \cos \theta} \, d\rho \, d\theta</math>
</center>El primer término se resuelve analíticamente, pues es una integral sencilla:
 <center><math>I_1=\pi · \int_{1}^{2} \rho \, d\rho = \left[\frac{\rho^2}{2}\right]_{1}^{2} = \frac{2^2}{2} - \frac{1^2}{2} = 1.5\pi</math></center> 
El segundo término se calcula como una aproximación por el método del trapecio. Para ello utilizamos el siguiente código en Matlab, que calcula el área de una superficie muy próxima al valor del área bajo la curva: {{matlab|codigo=% Definimos la función a integrar como anónima y los límites de integración
f = @(rho, theta) rho .* exp(rho.^2 .* cos(theta));
a = 1; b = 2;
c = 0; d = pi;
N1 = 100;
N2 = 100;
% Se subdivide el espacio creando una cuadrícula y se evalúa la función en
% cada punto
rho_vec = linspace(a, b, N1);
theta_vec = linspace(c, d, N2);
[RHO, THETA] = meshgrid(rho_vec, theta_vec);
Z = f(RHO, THETA);
%Se aplica la integral en dos partes (integral doble)
integral_rho = trapz(rho_vec, Z, 2);
result = trapz(theta_vec, integral_rho, 1);}} 
Tras ejecutar el código, el programa nos devuelve como resultado de la aproximación el valor de 19,9337 unidades. Por tanto <math>I_2=19,9337</math> 
El resultado final de la masa es la suma de ambos términos integrales: <center><math>M=I_1+I_2</math></center> 
Por tanto: <center><math>M=1,5\pi + 19,9337\approx24.6461 unidades</math></center>

==Aplicaciones reales en ingeniería==
Estudiar el comportamiento de ondas, sólidos y fluidos es de especial importancia en ingeniería civil para garantizar la seguridad de las estructuras. Es por ello que el uso de superficies planas como la que hemos estudiado es muy habitual para monitorizar el estado en timpo real de estructuras. Además, son datos valiosos para anticipàrse a los posibles problemas que puedan surgir y de esta forma construir obras más resilientes y seguras.
Aunque el campo de aplicaciones es muy amplio, nos vamos a centrar en dos de las más útiles e interesantes:
===Análisis de vibraciones===
[[Archivo:Ej12 G23.jpg|miniatura|300px|right|Sensor que monitoriza vibraciones en sección curva de vía en la línea 3 del Metro de Madrid]]
Se trata de una aplicación muy utilizada en obras subterráneas como túneles de ferrocarril, donde los trenes producen importantes vibraciones a su paso y es muy necesario estudiar su magnitud y dirección para evitar movimientos en la superficie (con la correspondiente afección a edificios) o en la propia estructura del túnel. Es un entorno especialmente delicado por su tipología subterránea, donde se debe monitorizar cualquier movimiento. 
Se suelen colocar sensores que introducen placas similares a la estudiada en este trabajo. El paso de los trenes genera un vector desplazamiento y las afecciones al túnel se calculan con la divergencia y especialmente el rotacional. De esta manera, se monitoriza el túnel en distintos puntos y así se realiza un mantenimiento preventivo de la vía y se pueden establecer limitaciones de velocidad en tramos donde se superen los valores de seguridad (especialmente en curvas, donde las vibraciones aumentan por mayor rozamiento entre rueda y carril).
===Diseño de puentes y voladizos===
[[Archivo:Ej12.2 G23.jpg|miniatura|300px|right|Viaducto de Montabliz (Cantabria). El estado del tablero se monitoriza con sensores situados a lo largo de toda la estructura]]
Los tableros de puentes o las estructuras voladizas deben ser muy resistentes porque se encuentran suspendidos en el aire y deben soportar tensiones de tracción y compresión garantizando su estabilidad. Por ello, es muy común utilizar sensores que miden las deformaciones producidas en el tablero de ujn purnte o voladizo cada vez que actúa una carga sobre él (por ejemplo, un vehículo). Según la magnitud y dirección del desplazamiento (magnitud vectorial) y las tensiones que aparecen en la superficie plana, es posible determinar qué zonas del tablero se encuentran más expuestas a las cargas y anticiparse a los problemas mediante refuerzos en la estructura o mantenimiento en zonas deterioradas.
===Estudio de fatiga en piezas de maquinaria===
En grandes máquinas existen multitud de piezas expuestas a fatiga cuyo estado debe controlarse en todo momento para evitar defectos. Es útil estudiar esas piezas como si se tratasen de placas planas y analizar cómo se distribuyen las tensiones y deformaciones por ellas. De esta manera se puede predecir la vida útil del elemennto y llevar a cabo el reemplazo antes de que muestre signos de fatiga. Se emplea frecuentemente en alas de avión, soportes de superficies o cuchillas de turbinas.
[[Archivo:Poster grupo 23|1000xpx|sinmarco|centro]]
==Póster del trabajo==
[[Archivo:Poster_23.png|900px|sinmarco|PÓSTER GRUPO 23]]

==Bibliografía==
* Apuntes Teoría de Campos, Tema 2 (''Campos tensoriales y operadores diferenciales''), Curso Académico 2025/26, ETSICCP
* Google Gemini, Asistente IA
* Matlab documentation, MathWorks
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Archivo:Poster 23.png

2025-12-07T22:09:07Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-07T22:04:51Z

Miguelangel.ibanez: /* Póster del trabajo */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

'''Enlace de descarga al póster del trabajo en formato PDF''': [https://drive.google.com/file/d/1wNLKkgfCR23ooZmtUrFso7rR3kbiOJIN/view?usp=sharing Póster Grupo 23]

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas XX e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Ej8_G23.jpg|400px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{e_\rho}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Ej9_G23.jpg| 500px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}

==Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>==
Al igual que en el apartado 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Ej10_G23.jpg| 378px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la masa de un campo en coordenadas polares cilíndricas==
La masa se calcula como la integral de una función de densidad sobre el dominio de la superficie. En este caso, se aplica una integral doble puesto que la densidad viene definida en dos variables, <math>\rho</math> y <math>\theta</math>. 
Dado el campo escalar <math>d(\rho, \theta) = 1 + e^{\rho^{2} \cos \theta}</math>, se tiene en cuenta que los límites de integración para cada variable vendrán dados por la definición de la superficie plana, hallada en apartados anteriores. Dichos límites serán: <math>\rho=[1, 2]</math> y <math>\theta=[0,\pi]</math> 
Ahora ya podemos definir la integral doble que debemos calcular para hallar la masa: 
<center><math>M = \int_{0}^{\pi} \int_{1}^{2} \left(1 + e^{\rho^2 \cos \theta}\right) \rho \, d\rho \, d\theta</math></center>
Para simplificar, dividimos la integral en dos términos de la siguiente manera:
 <center><math>M = \int_{0}^{\pi} \int_{1}^{2} \rho \, d\rho \, d\theta + \int_{0}^{\pi} \int_{1}^{2} \rho e^{\rho^2 \cos \theta} \, d\rho \, d\theta</math>
</center>El primer término se resuelve analíticamente, pues es una integral sencilla:
 <center><math>I_1=\pi · \int_{1}^{2} \rho \, d\rho = \left[\frac{\rho^2}{2}\right]_{1}^{2} = \frac{2^2}{2} - \frac{1^2}{2} = 1.5\pi</math></center> 
El segundo término se calcula como una aproximación por el método del trapecio. Para ello utilizamos el siguiente código en Matlab, que calcula el área de una superficie muy próxima al valor del área bajo la curva: {{matlab|codigo=% Definimos la función a integrar como anónima y los límites de integración
f = @(rho, theta) rho .* exp(rho.^2 .* cos(theta));
a = 1; b = 2;
c = 0; d = pi;
N1 = 100;
N2 = 100;
% Se subdivide el espacio creando una cuadrícula y se evalúa la función en
% cada punto
rho_vec = linspace(a, b, N1);
theta_vec = linspace(c, d, N2);
[RHO, THETA] = meshgrid(rho_vec, theta_vec);
Z = f(RHO, THETA);
%Se aplica la integral en dos partes (integral doble)
integral_rho = trapz(rho_vec, Z, 2);
result = trapz(theta_vec, integral_rho, 1);}} 
Tras ejecutar el código, el programa nos devuelve como resultado de la aproximación el valor de 19,9337 unidades. Por tanto <math>I_2=19,9337</math> 
El resultado final de la masa es la suma de ambos términos integrales: <center><math>M=I_1+I_2</math></center> 
Por tanto: <center><math>M=1,5\pi + 19,9337\approx24.6461 unidades</math></center>

==Aplicaciones reales en ingeniería==
Estudiar el comportamiento de ondas, sólidos y fluidos es de especial importancia en ingeniería civil para garantizar la seguridad de las estructuras. Es por ello que el uso de superficies planas como la que hemos estudiado es muy habitual para monitorizar el estado en timpo real de estructuras. Además, son datos valiosos para anticipàrse a los posibles problemas que puedan surgir y de esta forma construir obras más resilientes y seguras.
Aunque el campo de aplicaciones es muy amplio, nos vamos a centrar en dos de las más útiles e interesantes:
===Análisis de vibraciones===
[[Archivo:Ej12 G23.jpg|miniatura|300px|right|Sensor que monitoriza vibraciones en sección curva de vía en la línea 3 del Metro de Madrid]]
Se trata de una aplicación muy utilizada en obras subterráneas como túneles de ferrocarril, donde los trenes producen importantes vibraciones a su paso y es muy necesario estudiar su magnitud y dirección para evitar movimientos en la superficie (con la correspondiente afección a edificios) o en la propia estructura del túnel. Es un entorno especialmente delicado por su tipología subterránea, donde se debe monitorizar cualquier movimiento. 
Se suelen colocar sensores que introducen placas similares a la estudiada en este trabajo. El paso de los trenes genera un vector desplazamiento y las afecciones al túnel se calculan con la divergencia y especialmente el rotacional. De esta manera, se monitoriza el túnel en distintos puntos y así se realiza un mantenimiento preventivo de la vía y se pueden establecer limitaciones de velocidad en tramos donde se superen los valores de seguridad (especialmente en curvas, donde las vibraciones aumentan por mayor rozamiento entre rueda y carril).
===Diseño de puentes y voladizos===
[[Archivo:Ej12.2 G23.jpg|miniatura|300px|right|Viaducto de Montabliz (Cantabria). El estado del tablero se monitoriza con sensores situados a lo largo de toda la estructura]]
Los tableros de puentes o las estructuras voladizas deben ser muy resistentes porque se encuentran suspendidos en el aire y deben soportar tensiones de tracción y compresión garantizando su estabilidad. Por ello, es muy común utilizar sensores que miden las deformaciones producidas en el tablero de ujn purnte o voladizo cada vez que actúa una carga sobre él (por ejemplo, un vehículo). Según la magnitud y dirección del desplazamiento (magnitud vectorial) y las tensiones que aparecen en la superficie plana, es posible determinar qué zonas del tablero se encuentran más expuestas a las cargas y anticiparse a los problemas mediante refuerzos en la estructura o mantenimiento en zonas deterioradas.
===Estudio de fatiga en piezas de maquinaria===
En grandes máquinas existen multitud de piezas expuestas a fatiga cuyo estado debe controlarse en todo momento para evitar defectos. Es útil estudiar esas piezas como si se tratasen de placas planas y analizar cómo se distribuyen las tensiones y deformaciones por ellas. De esta manera se puede predecir la vida útil del elemennto y llevar a cabo el reemplazo antes de que muestre signos de fatiga. Se emplea frecuentemente en alas de avión, soportes de superficies o cuchillas de turbinas.
[[Archivo:Poster grupo 23|1000xpx|sinmarco|centro]]
==Póster del trabajo==
[[Archivo:Poster_23|900px|sinmarco|PÓSTER GRUPO 23]]

==Bibliografía==
* Apuntes Teoría de Campos, Tema 2 (''Campos tensoriales y operadores diferenciales''), Curso Académico 2025/26, ETSICCP
* Google Gemini, Asistente IA
* Matlab documentation, MathWorks
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-07T22:03:50Z

Miguelangel.ibanez: /* Póster del trabajo */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

'''Enlace de descarga al póster del trabajo en formato PDF''': [https://drive.google.com/file/d/1wNLKkgfCR23ooZmtUrFso7rR3kbiOJIN/view?usp=sharing Póster Grupo 23]

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas XX e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Ej8_G23.jpg|400px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{e_\rho}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Ej9_G23.jpg| 500px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}

==Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>==
Al igual que en el apartado 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Ej10_G23.jpg| 378px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la masa de un campo en coordenadas polares cilíndricas==
La masa se calcula como la integral de una función de densidad sobre el dominio de la superficie. En este caso, se aplica una integral doble puesto que la densidad viene definida en dos variables, <math>\rho</math> y <math>\theta</math>. 
Dado el campo escalar <math>d(\rho, \theta) = 1 + e^{\rho^{2} \cos \theta}</math>, se tiene en cuenta que los límites de integración para cada variable vendrán dados por la definición de la superficie plana, hallada en apartados anteriores. Dichos límites serán: <math>\rho=[1, 2]</math> y <math>\theta=[0,\pi]</math> 
Ahora ya podemos definir la integral doble que debemos calcular para hallar la masa: 
<center><math>M = \int_{0}^{\pi} \int_{1}^{2} \left(1 + e^{\rho^2 \cos \theta}\right) \rho \, d\rho \, d\theta</math></center>
Para simplificar, dividimos la integral en dos términos de la siguiente manera:
 <center><math>M = \int_{0}^{\pi} \int_{1}^{2} \rho \, d\rho \, d\theta + \int_{0}^{\pi} \int_{1}^{2} \rho e^{\rho^2 \cos \theta} \, d\rho \, d\theta</math>
</center>El primer término se resuelve analíticamente, pues es una integral sencilla:
 <center><math>I_1=\pi · \int_{1}^{2} \rho \, d\rho = \left[\frac{\rho^2}{2}\right]_{1}^{2} = \frac{2^2}{2} - \frac{1^2}{2} = 1.5\pi</math></center> 
El segundo término se calcula como una aproximación por el método del trapecio. Para ello utilizamos el siguiente código en Matlab, que calcula el área de una superficie muy próxima al valor del área bajo la curva: {{matlab|codigo=% Definimos la función a integrar como anónima y los límites de integración
f = @(rho, theta) rho .* exp(rho.^2 .* cos(theta));
a = 1; b = 2;
c = 0; d = pi;
N1 = 100;
N2 = 100;
% Se subdivide el espacio creando una cuadrícula y se evalúa la función en
% cada punto
rho_vec = linspace(a, b, N1);
theta_vec = linspace(c, d, N2);
[RHO, THETA] = meshgrid(rho_vec, theta_vec);
Z = f(RHO, THETA);
%Se aplica la integral en dos partes (integral doble)
integral_rho = trapz(rho_vec, Z, 2);
result = trapz(theta_vec, integral_rho, 1);}} 
Tras ejecutar el código, el programa nos devuelve como resultado de la aproximación el valor de 19,9337 unidades. Por tanto <math>I_2=19,9337</math> 
El resultado final de la masa es la suma de ambos términos integrales: <center><math>M=I_1+I_2</math></center> 
Por tanto: <center><math>M=1,5\pi + 19,9337\approx24.6461 unidades</math></center>

==Aplicaciones reales en ingeniería==
Estudiar el comportamiento de ondas, sólidos y fluidos es de especial importancia en ingeniería civil para garantizar la seguridad de las estructuras. Es por ello que el uso de superficies planas como la que hemos estudiado es muy habitual para monitorizar el estado en timpo real de estructuras. Además, son datos valiosos para anticipàrse a los posibles problemas que puedan surgir y de esta forma construir obras más resilientes y seguras.
Aunque el campo de aplicaciones es muy amplio, nos vamos a centrar en dos de las más útiles e interesantes:
===Análisis de vibraciones===
[[Archivo:Ej12 G23.jpg|miniatura|300px|right|Sensor que monitoriza vibraciones en sección curva de vía en la línea 3 del Metro de Madrid]]
Se trata de una aplicación muy utilizada en obras subterráneas como túneles de ferrocarril, donde los trenes producen importantes vibraciones a su paso y es muy necesario estudiar su magnitud y dirección para evitar movimientos en la superficie (con la correspondiente afección a edificios) o en la propia estructura del túnel. Es un entorno especialmente delicado por su tipología subterránea, donde se debe monitorizar cualquier movimiento. 
Se suelen colocar sensores que introducen placas similares a la estudiada en este trabajo. El paso de los trenes genera un vector desplazamiento y las afecciones al túnel se calculan con la divergencia y especialmente el rotacional. De esta manera, se monitoriza el túnel en distintos puntos y así se realiza un mantenimiento preventivo de la vía y se pueden establecer limitaciones de velocidad en tramos donde se superen los valores de seguridad (especialmente en curvas, donde las vibraciones aumentan por mayor rozamiento entre rueda y carril).
===Diseño de puentes y voladizos===
[[Archivo:Ej12.2 G23.jpg|miniatura|300px|right|Viaducto de Montabliz (Cantabria). El estado del tablero se monitoriza con sensores situados a lo largo de toda la estructura]]
Los tableros de puentes o las estructuras voladizas deben ser muy resistentes porque se encuentran suspendidos en el aire y deben soportar tensiones de tracción y compresión garantizando su estabilidad. Por ello, es muy común utilizar sensores que miden las deformaciones producidas en el tablero de ujn purnte o voladizo cada vez que actúa una carga sobre él (por ejemplo, un vehículo). Según la magnitud y dirección del desplazamiento (magnitud vectorial) y las tensiones que aparecen en la superficie plana, es posible determinar qué zonas del tablero se encuentran más expuestas a las cargas y anticiparse a los problemas mediante refuerzos en la estructura o mantenimiento en zonas deterioradas.
===Estudio de fatiga en piezas de maquinaria===
En grandes máquinas existen multitud de piezas expuestas a fatiga cuyo estado debe controlarse en todo momento para evitar defectos. Es útil estudiar esas piezas como si se tratasen de placas planas y analizar cómo se distribuyen las tensiones y deformaciones por ellas. De esta manera se puede predecir la vida útil del elemennto y llevar a cabo el reemplazo antes de que muestre signos de fatiga. Se emplea frecuentemente en alas de avión, soportes de superficies o cuchillas de turbinas.
[[Archivo:Poster grupo 23|1000xpx|sinmarco|centro]]
==Póster del trabajo==
[[Archivo:Poster_23|900px|sinmarco|PÓSTER GRUPO 23]

==Bibliografía==
* Apuntes Teoría de Campos, Tema 2 (''Campos tensoriales y operadores diferenciales''), Curso Académico 2025/26, ETSICCP
* Google Gemini, Asistente IA
* Matlab documentation, MathWorks
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-07T22:03:35Z

Miguelangel.ibanez: /* Póster del trabajo */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

'''Enlace de descarga al póster del trabajo en formato PDF''': [https://drive.google.com/file/d/1wNLKkgfCR23ooZmtUrFso7rR3kbiOJIN/view?usp=sharing Póster Grupo 23]

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas XX e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Ej8_G23.jpg|400px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{e_\rho}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Ej9_G23.jpg| 500px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}

==Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>==
Al igual que en el apartado 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Ej10_G23.jpg| 378px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la masa de un campo en coordenadas polares cilíndricas==
La masa se calcula como la integral de una función de densidad sobre el dominio de la superficie. En este caso, se aplica una integral doble puesto que la densidad viene definida en dos variables, <math>\rho</math> y <math>\theta</math>. 
Dado el campo escalar <math>d(\rho, \theta) = 1 + e^{\rho^{2} \cos \theta}</math>, se tiene en cuenta que los límites de integración para cada variable vendrán dados por la definición de la superficie plana, hallada en apartados anteriores. Dichos límites serán: <math>\rho=[1, 2]</math> y <math>\theta=[0,\pi]</math> 
Ahora ya podemos definir la integral doble que debemos calcular para hallar la masa: 
<center><math>M = \int_{0}^{\pi} \int_{1}^{2} \left(1 + e^{\rho^2 \cos \theta}\right) \rho \, d\rho \, d\theta</math></center>
Para simplificar, dividimos la integral en dos términos de la siguiente manera:
 <center><math>M = \int_{0}^{\pi} \int_{1}^{2} \rho \, d\rho \, d\theta + \int_{0}^{\pi} \int_{1}^{2} \rho e^{\rho^2 \cos \theta} \, d\rho \, d\theta</math>
</center>El primer término se resuelve analíticamente, pues es una integral sencilla:
 <center><math>I_1=\pi · \int_{1}^{2} \rho \, d\rho = \left[\frac{\rho^2}{2}\right]_{1}^{2} = \frac{2^2}{2} - \frac{1^2}{2} = 1.5\pi</math></center> 
El segundo término se calcula como una aproximación por el método del trapecio. Para ello utilizamos el siguiente código en Matlab, que calcula el área de una superficie muy próxima al valor del área bajo la curva: {{matlab|codigo=% Definimos la función a integrar como anónima y los límites de integración
f = @(rho, theta) rho .* exp(rho.^2 .* cos(theta));
a = 1; b = 2;
c = 0; d = pi;
N1 = 100;
N2 = 100;
% Se subdivide el espacio creando una cuadrícula y se evalúa la función en
% cada punto
rho_vec = linspace(a, b, N1);
theta_vec = linspace(c, d, N2);
[RHO, THETA] = meshgrid(rho_vec, theta_vec);
Z = f(RHO, THETA);
%Se aplica la integral en dos partes (integral doble)
integral_rho = trapz(rho_vec, Z, 2);
result = trapz(theta_vec, integral_rho, 1);}} 
Tras ejecutar el código, el programa nos devuelve como resultado de la aproximación el valor de 19,9337 unidades. Por tanto <math>I_2=19,9337</math> 
El resultado final de la masa es la suma de ambos términos integrales: <center><math>M=I_1+I_2</math></center> 
Por tanto: <center><math>M=1,5\pi + 19,9337\approx24.6461 unidades</math></center>

==Aplicaciones reales en ingeniería==
Estudiar el comportamiento de ondas, sólidos y fluidos es de especial importancia en ingeniería civil para garantizar la seguridad de las estructuras. Es por ello que el uso de superficies planas como la que hemos estudiado es muy habitual para monitorizar el estado en timpo real de estructuras. Además, son datos valiosos para anticipàrse a los posibles problemas que puedan surgir y de esta forma construir obras más resilientes y seguras.
Aunque el campo de aplicaciones es muy amplio, nos vamos a centrar en dos de las más útiles e interesantes:
===Análisis de vibraciones===
[[Archivo:Ej12 G23.jpg|miniatura|300px|right|Sensor que monitoriza vibraciones en sección curva de vía en la línea 3 del Metro de Madrid]]
Se trata de una aplicación muy utilizada en obras subterráneas como túneles de ferrocarril, donde los trenes producen importantes vibraciones a su paso y es muy necesario estudiar su magnitud y dirección para evitar movimientos en la superficie (con la correspondiente afección a edificios) o en la propia estructura del túnel. Es un entorno especialmente delicado por su tipología subterránea, donde se debe monitorizar cualquier movimiento. 
Se suelen colocar sensores que introducen placas similares a la estudiada en este trabajo. El paso de los trenes genera un vector desplazamiento y las afecciones al túnel se calculan con la divergencia y especialmente el rotacional. De esta manera, se monitoriza el túnel en distintos puntos y así se realiza un mantenimiento preventivo de la vía y se pueden establecer limitaciones de velocidad en tramos donde se superen los valores de seguridad (especialmente en curvas, donde las vibraciones aumentan por mayor rozamiento entre rueda y carril).
===Diseño de puentes y voladizos===
[[Archivo:Ej12.2 G23.jpg|miniatura|300px|right|Viaducto de Montabliz (Cantabria). El estado del tablero se monitoriza con sensores situados a lo largo de toda la estructura]]
Los tableros de puentes o las estructuras voladizas deben ser muy resistentes porque se encuentran suspendidos en el aire y deben soportar tensiones de tracción y compresión garantizando su estabilidad. Por ello, es muy común utilizar sensores que miden las deformaciones producidas en el tablero de ujn purnte o voladizo cada vez que actúa una carga sobre él (por ejemplo, un vehículo). Según la magnitud y dirección del desplazamiento (magnitud vectorial) y las tensiones que aparecen en la superficie plana, es posible determinar qué zonas del tablero se encuentran más expuestas a las cargas y anticiparse a los problemas mediante refuerzos en la estructura o mantenimiento en zonas deterioradas.
===Estudio de fatiga en piezas de maquinaria===
En grandes máquinas existen multitud de piezas expuestas a fatiga cuyo estado debe controlarse en todo momento para evitar defectos. Es útil estudiar esas piezas como si se tratasen de placas planas y analizar cómo se distribuyen las tensiones y deformaciones por ellas. De esta manera se puede predecir la vida útil del elemennto y llevar a cabo el reemplazo antes de que muestre signos de fatiga. Se emplea frecuentemente en alas de avión, soportes de superficies o cuchillas de turbinas.
[[Archivo:Poster grupo 23|1000xpx|sinmarco|centro]]
==Póster del trabajo==
[[Archivo:Poster23|900px|sinmarco|PÓSTER GRUPO 23]

==Bibliografía==
* Apuntes Teoría de Campos, Tema 2 (''Campos tensoriales y operadores diferenciales''), Curso Académico 2025/26, ETSICCP
* Google Gemini, Asistente IA
* Matlab documentation, MathWorks
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-07T22:02:06Z

Miguelangel.ibanez: /* Póster del trabajo */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

'''Enlace de descarga al póster del trabajo en formato PDF''': [https://drive.google.com/file/d/1wNLKkgfCR23ooZmtUrFso7rR3kbiOJIN/view?usp=sharing Póster Grupo 23]

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas XX e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Ej8_G23.jpg|400px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{e_\rho}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Ej9_G23.jpg| 500px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}

==Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>==
Al igual que en el apartado 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Ej10_G23.jpg| 378px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la masa de un campo en coordenadas polares cilíndricas==
La masa se calcula como la integral de una función de densidad sobre el dominio de la superficie. En este caso, se aplica una integral doble puesto que la densidad viene definida en dos variables, <math>\rho</math> y <math>\theta</math>. 
Dado el campo escalar <math>d(\rho, \theta) = 1 + e^{\rho^{2} \cos \theta}</math>, se tiene en cuenta que los límites de integración para cada variable vendrán dados por la definición de la superficie plana, hallada en apartados anteriores. Dichos límites serán: <math>\rho=[1, 2]</math> y <math>\theta=[0,\pi]</math> 
Ahora ya podemos definir la integral doble que debemos calcular para hallar la masa: 
<center><math>M = \int_{0}^{\pi} \int_{1}^{2} \left(1 + e^{\rho^2 \cos \theta}\right) \rho \, d\rho \, d\theta</math></center>
Para simplificar, dividimos la integral en dos términos de la siguiente manera:
 <center><math>M = \int_{0}^{\pi} \int_{1}^{2} \rho \, d\rho \, d\theta + \int_{0}^{\pi} \int_{1}^{2} \rho e^{\rho^2 \cos \theta} \, d\rho \, d\theta</math>
</center>El primer término se resuelve analíticamente, pues es una integral sencilla:
 <center><math>I_1=\pi · \int_{1}^{2} \rho \, d\rho = \left[\frac{\rho^2}{2}\right]_{1}^{2} = \frac{2^2}{2} - \frac{1^2}{2} = 1.5\pi</math></center> 
El segundo término se calcula como una aproximación por el método del trapecio. Para ello utilizamos el siguiente código en Matlab, que calcula el área de una superficie muy próxima al valor del área bajo la curva: {{matlab|codigo=% Definimos la función a integrar como anónima y los límites de integración
f = @(rho, theta) rho .* exp(rho.^2 .* cos(theta));
a = 1; b = 2;
c = 0; d = pi;
N1 = 100;
N2 = 100;
% Se subdivide el espacio creando una cuadrícula y se evalúa la función en
% cada punto
rho_vec = linspace(a, b, N1);
theta_vec = linspace(c, d, N2);
[RHO, THETA] = meshgrid(rho_vec, theta_vec);
Z = f(RHO, THETA);
%Se aplica la integral en dos partes (integral doble)
integral_rho = trapz(rho_vec, Z, 2);
result = trapz(theta_vec, integral_rho, 1);}} 
Tras ejecutar el código, el programa nos devuelve como resultado de la aproximación el valor de 19,9337 unidades. Por tanto <math>I_2=19,9337</math> 
El resultado final de la masa es la suma de ambos términos integrales: <center><math>M=I_1+I_2</math></center> 
Por tanto: <center><math>M=1,5\pi + 19,9337\approx24.6461 unidades</math></center>

==Aplicaciones reales en ingeniería==
Estudiar el comportamiento de ondas, sólidos y fluidos es de especial importancia en ingeniería civil para garantizar la seguridad de las estructuras. Es por ello que el uso de superficies planas como la que hemos estudiado es muy habitual para monitorizar el estado en timpo real de estructuras. Además, son datos valiosos para anticipàrse a los posibles problemas que puedan surgir y de esta forma construir obras más resilientes y seguras.
Aunque el campo de aplicaciones es muy amplio, nos vamos a centrar en dos de las más útiles e interesantes:
===Análisis de vibraciones===
[[Archivo:Ej12 G23.jpg|miniatura|300px|right|Sensor que monitoriza vibraciones en sección curva de vía en la línea 3 del Metro de Madrid]]
Se trata de una aplicación muy utilizada en obras subterráneas como túneles de ferrocarril, donde los trenes producen importantes vibraciones a su paso y es muy necesario estudiar su magnitud y dirección para evitar movimientos en la superficie (con la correspondiente afección a edificios) o en la propia estructura del túnel. Es un entorno especialmente delicado por su tipología subterránea, donde se debe monitorizar cualquier movimiento. 
Se suelen colocar sensores que introducen placas similares a la estudiada en este trabajo. El paso de los trenes genera un vector desplazamiento y las afecciones al túnel se calculan con la divergencia y especialmente el rotacional. De esta manera, se monitoriza el túnel en distintos puntos y así se realiza un mantenimiento preventivo de la vía y se pueden establecer limitaciones de velocidad en tramos donde se superen los valores de seguridad (especialmente en curvas, donde las vibraciones aumentan por mayor rozamiento entre rueda y carril).
===Diseño de puentes y voladizos===
[[Archivo:Ej12.2 G23.jpg|miniatura|300px|right|Viaducto de Montabliz (Cantabria). El estado del tablero se monitoriza con sensores situados a lo largo de toda la estructura]]
Los tableros de puentes o las estructuras voladizas deben ser muy resistentes porque se encuentran suspendidos en el aire y deben soportar tensiones de tracción y compresión garantizando su estabilidad. Por ello, es muy común utilizar sensores que miden las deformaciones producidas en el tablero de ujn purnte o voladizo cada vez que actúa una carga sobre él (por ejemplo, un vehículo). Según la magnitud y dirección del desplazamiento (magnitud vectorial) y las tensiones que aparecen en la superficie plana, es posible determinar qué zonas del tablero se encuentran más expuestas a las cargas y anticiparse a los problemas mediante refuerzos en la estructura o mantenimiento en zonas deterioradas.
===Estudio de fatiga en piezas de maquinaria===
En grandes máquinas existen multitud de piezas expuestas a fatiga cuyo estado debe controlarse en todo momento para evitar defectos. Es útil estudiar esas piezas como si se tratasen de placas planas y analizar cómo se distribuyen las tensiones y deformaciones por ellas. De esta manera se puede predecir la vida útil del elemennto y llevar a cabo el reemplazo antes de que muestre signos de fatiga. Se emplea frecuentemente en alas de avión, soportes de superficies o cuchillas de turbinas.
[[Archivo:Poster grupo 23|1000xpx|sinmarco|centro]]
==Póster del trabajo==

==Bibliografía==
* Apuntes Teoría de Campos, Tema 2 (''Campos tensoriales y operadores diferenciales''), Curso Académico 2025/26, ETSICCP
* Google Gemini, Asistente IA
* Matlab documentation, MathWorks
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-07T11:27:04Z

Miguelangel.ibanez: /* Representación del desplazamiento del campo ū */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas XX e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Ej8_G23.jpg|400px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{e_\rho}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Ej9_G23.jpg| 500px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\rho}</math>]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}

==Cálculo de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>==
Al igual que en el apartado 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Ej10_G23.jpg| 378px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a <math>\vec{e_\theta}</math>]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la masa de un campo en coordenadas polares cilíndricas==
La masa se calcula como la integral de una función de densidad sobre el dominio de la superficie. En este caso, se aplica una integral doble puesto que la densidad viene definida en dos variables, <math>\rho</math> y <math>\theta</math>. 
Dado el campo escalar <math>d(\rho, \theta) = 1 + e^{\rho^{2} \cos \theta}</math>, se tiene en cuenta que los límites de integración para cada variable vendrán dados por la definición de la superficie plana, hallada en apartados anteriores. Dichos límites serán: <math>\rho=[1, 2]</math> y <math>\theta=[0,\pi]</math> 
Ahora ya podemos definir la integral doble que debemos calcular para hallar la masa: 
<center><math>M = \int_{0}^{\pi} \int_{1}^{2} \left(1 + e^{\rho^2 \cos \theta}\right) \rho \, d\rho \, d\theta</math></center>
Para simplificar, dividimos la integral en dos términos de la siguiente manera:
 <center><math>M = \int_{0}^{\pi} \int_{1}^{2} \rho \, d\rho \, d\theta + \int_{0}^{\pi} \int_{1}^{2} \rho e^{\rho^2 \cos \theta} \, d\rho \, d\theta</math>
</center>El primer término se resuelve analíticamente, pues es una integral sencilla:
 <center><math>I_1=\pi · \int_{1}^{2} \rho \, d\rho = \left[\frac{\rho^2}{2}\right]_{1}^{2} = \frac{2^2}{2} - \frac{1^2}{2} = 1.5\pi</math></center> 
El segundo término se calcula como una aproximación por el método del trapecio. Para ello utilizamos el siguiente código en Matlab, que calcula el área de una superficie muy próxima al valor del área bajo la curva: {{matlab|codigo=% Definimos la función a integrar como anónima y los límites de integración
f = @(rho, theta) rho .* exp(rho.^2 .* cos(theta));
a = 1; b = 2;
c = 0; d = pi;
N1 = 100;
N2 = 100;
% Se subdivide el espacio creando una cuadrícula y se evalúa la función en
% cada punto
rho_vec = linspace(a, b, N1);
theta_vec = linspace(c, d, N2);
[RHO, THETA] = meshgrid(rho_vec, theta_vec);
Z = f(RHO, THETA);
%Se aplica la integral en dos partes (integral doble)
integral_rho = trapz(rho_vec, Z, 2);
result = trapz(theta_vec, integral_rho, 1);}} 
Tras ejecutar el código, el programa nos devuelve como resultado de la aproximación el valor de 19,9337 unidades. Por tanto <math>I_2=19,9337</math> 
El resultado final de la masa es la suma de ambos términos integrales: <center><math>M=I_1+I_2</math></center> 
Por tanto: <center><math>M=1,5\pi + 19,9337\approx24.6461 unidades</math></center>

==Aplicaciones reales en ingeniería==
Estudiar el comportamiento de ondas, sólidos y fluidos es de especial importancia en ingeniería civil para garantizar la seguridad de las estructuras. Es por ello que el uso de superficies planas como la que hemos estudiado es muy habitual para monitorizar el estado en timpo real de estructuras. Además, son datos valiosos para anticipàrse a los posibles problemas que puedan surgir y de esta forma construir obras más resilientes y seguras.
Aunque el campo de aplicaciones es muy amplio, nos vamos a centrar en dos de las más útiles e interesantes:
===Análisis de vibraciones===
[[Archivo:Ej12 G23.jpg|miniatura|300px|right|Sensor que monitoriza vibraciones en sección curva de vía en la línea 3 del Metro de Madrid]]
Se trata de una aplicación muy utilizada en obras subterráneas como túneles de ferrocarril, donde los trenes producen importantes vibraciones a su paso y es muy necesario estudiar su magnitud y dirección para evitar movimientos en la superficie (con la correspondiente afección a edificios) o en la propia estructura del túnel. Es un entorno especialmente delicado por su tipología subterránea, donde se debe monitorizar cualquier movimiento. 
Se suelen colocar sensores que introducen placas similares a la estudiada en este trabajo. El paso de los trenes genera un vector desplazamiento y las afecciones al túnel se calculan con la divergencia y especialmente el rotacional. De esta manera, se monitoriza el túnel en distintos puntos y así se realiza un mantenimiento preventivo de la vía y se pueden establecer limitaciones de velocidad en tramos donde se superen los valores de seguridad (especialmente en curvas, donde las vibraciones aumentan por mayor rozamiento entre rueda y carril).
===Diseño de puentes y voladizos===
[[Archivo:Ej12.2 G23.jpg|miniatura|300px|right|Viaducto de Montabliz (Cantabria). El estado del tablero se monitoriza con sensores situados a lo largo de toda la estructura]]
Los tableros de puentes o las estructuras voladizas deben ser muy resistentes porque se encuentran suspendidos en el aire y deben soportar tensiones de tracción y compresión garantizando su estabilidad. Por ello, es muy común utilizar sensores que miden las deformaciones producidas en el tablero de ujn purnte o voladizo cada vez que actúa una carga sobre él (por ejemplo, un vehículo). Según la magnitud y dirección del desplazamiento (magnitud vectorial) y las tensiones que aparecen en la superficie plana, es posible determinar qué zonas del tablero se encuentran más expuestas a las cargas y anticiparse a los problemas mediante refuerzos en la estructura o mantenimiento en zonas deterioradas.
===Estudio de fatiga en piezas de maquinaria===
En grandes máquinas existen multitud de piezas expuestas a fatiga cuyo estado debe controlarse en todo momento para evitar defectos. Es útil estudiar esas piezas como si se tratasen de placas planas y analizar cómo se distribuyen las tensiones y deformaciones por ellas. De esta manera se puede predecir la vida útil del elemennto y llevar a cabo el reemplazo antes de que muestre signos de fatiga. Se emplea frecuentemente en alas de avión, soportes de superficies o cuchillas de turbinas.
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T17:19:44Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal <math>\vec{e\theta}</math>==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Pregunta1_0.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la MASA, de un campo en coordenadas polares cilíndricas==
Dado el campo escalar<math>d(\rho, \theta)= 1+e.^(p^2*cosθ)</math>
En este caso para el cáculo de la integral de un campo, se deba cumplir:
<math>p=[1, 2]</math> y <math>θ=[0, 2\pi]</math>, por tanto sea la integral en polares:
<center><math> M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\,\rho\,d\rho\,d\theta</math></center>
<center>
<math display="block">
\displaystyle M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\rho\,d\rho\,d\theta
</math>
</center>

<center>
<math display="block">
\begin{aligned}
M&=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\rho\,d\rho\,d\theta\\[6pt]
&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho+\cos\theta\int_{1}^{2}e^{\rho^{2}}\rho\,d\rho\right)d\theta\\[6pt]
&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho\right)d\theta\qquad\text{(pues }\int_{0}^{2\pi}\cos\theta\,d\theta=0\text{)}\\[6pt]
&=\int_{0}^{2\pi}\left[\tfrac{\rho^{2}}{2}\right]_{\rho=1}^{\rho=2}d\theta
=\int_{0}^{2\pi}\tfrac{3}{2}\,d\theta
=\tfrac{3}{2}\cdot 2\pi=3\pi\approx 9.425
\end{aligned}
</math>
</center>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T17:17:46Z

Miguelangel.ibanez: /* Cálculo de la MASA, de un campo en coordenadas polares cilíndricas */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Pregunta1_0.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la MASA, de un campo en coordenadas polares cilíndricas==
Dado el campo escalar<math>d(\rho, \theta)= 1+e.^(p^2*cosθ)</math>
En este caso para el cáculo de la integral de un campo, se deba cumplir:
<math>p=[1, 2]</math> y <math>θ=[0, 2\pi]</math>, por tanto sea la integral en polares:
<center><math> M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\,\rho\,d\rho\,d\theta</math></center>
<center>
<math display="block">
\displaystyle M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\rho\,d\rho\,d\theta
</math>
</center>

<center>
<math display="block">
\begin{aligned}
M&=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\rho\,d\rho\,d\theta\\[6pt]
&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho+\cos\theta\int_{1}^{2}e^{\rho^{2}}\rho\,d\rho\right)d\theta\\[6pt]
&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho\right)d\theta\qquad\text{(pues }\int_{0}^{2\pi}\cos\theta\,d\theta=0\text{)}\\[6pt]
&=\int_{0}^{2\pi}\left[\tfrac{\rho^{2}}{2}\right]_{\rho=1}^{\rho=2}d\theta
=\int_{0}^{2\pi}\tfrac{3}{2}\,d\theta
=\tfrac{3}{2}\cdot 2\pi=3\pi\approx 9.425
\end{aligned}
</math>
</center>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T17:17:09Z

Miguelangel.ibanez: /* Cálculo de la MASA, de un campo en coordenadas polares cilíndricas */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Pregunta1_0.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la MASA, de un campo en coordenadas polares cilíndricas==
Dado el campo escalar<math>d(\rho, \theta)= 1+e.^(p^2*cosθ)</math>
En este caso para el cáculo de la integral de un campo, se deba cumplir:
<math>p=[1, 2]</math> y <math>θ=[0, 2\pi]</math>, por tanto sea la integral en polares:
<center><math> M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\,\rho\,d\rho\,d\theta</math></center>
<center>
<math display="block">
\displaystyle M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\rho\,d\rho\,d\theta
</math>
</center>

<center>
<math display="block">
\begin{aligned}
M&=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\rho\,d\rho\,d\theta\\[6pt]
&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho+\cos\theta\int_{1}^{2}e^{\rho^{2}}\rho\,d\rho\right)d\theta\\[6pt]
&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho\right)d\theta\qquad\text{(pues }\int_{0}^{2\pi}\cos\theta\,d\theta=0\text{)}\\[6pt]
&=\int_{0}^{2\pi}\left[\tfrac{\rho^{2}}{2}\right]_{\rho=1}^{\rho=2}d\theta
=\int_{0}^{2\pi}\tfrac{3}{2}\,d\theta
=\tfrac{3}{2}\cdot 2\pi=3\pi\approx 9.42477796076938
\end{aligned}
</math>
</center>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T17:15:34Z

Miguelangel.ibanez: /* Cálculo de la MASA, de un campo en coordenadas polares cilíndricas */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Pregunta1_0.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la MASA, de un campo en coordenadas polares cilíndricas==
Dado el campo escalar<math>d(\rho, \theta)= 1+e.^(p^2*cosθ)</math>
En este caso para el cáculo de la integral de un campo, se deba cumplir:
<math>p=[1, 2]</math> y <math>θ=[0, 2\pi]</math>, por tanto sea la integral en polares:
<center><math> M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\,\rho\,d\rho\,d\theta</math></center>
<center><math>
M=\int_{0}^{2\pi}\int_{1}^{2}\left(1+e^{\rho^{2}}\cos\theta\right)\rho\,d\rho\,d\theta
\end{math></center>

<center><math>
\begin{aligned}
M&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho+\int_{1}^{2}e^{\rho^{2}}\cos\theta\,\rho\,d\rho\right)d\theta\\[6pt]
&=\int_{0}^{2\pi}\left(\int_{1}^{2}\rho\,d\rho\right)d\theta
\quad\text{(porque }\int_{0}^{2\pi}\cos\theta\,d\theta=0\text{)}\\[6pt]
&=\int_{0}^{2\pi}\frac{\rho^{2}}{2}\Big|_{\rho=1}^{\rho=2}\,d\theta
=\int_{0}^{2\pi}\frac{2^{2}-1^{2}}{2}\,d\theta
=\int_{0}^{2\pi}\frac{3}{2}\,d\theta\\[6pt]
&= \frac{3}{2}\cdot 2\pi = 3\pi \approx 9.42477796076938.
\end{aligned}
</math></center>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T17:13:25Z

Miguelangel.ibanez: /* Cálculo de la MASA, de un campo en coordenadas polares cilíndricas */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Pregunta1_0.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la MASA, de un campo en coordenadas polares cilíndricas==
Dado el campo escalar<math>d(\rho, \theta)= 1+e.^(p^2*cosθ)</math>
En este caso para el cáculo de la integral de un campo, se deba cumplir:
<math>p=[1, 2]</math> y <math>θ=[0, 2\pi]</math>, por tanto sea la integral en polares:
<center><math> M=\int_{0}^{2\pi}\int_{0}^{1}\left(1+e^{\rho^{2}}\cos\theta\right)\,\rho\,d\rho\,d\theta</math></center>
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T17:11:23Z

Miguelangel.ibanez:

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Pregunta1_0.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

==Cálculo de la MASA, de un campo en coordenadas polares cilíndricas==
Dado el campo escalar<math>d(\rho, \theta)= 1+e.^(p2*cosθ)</math>
En este caso para el cáculo de la integral de un campo, se deba cumplir:
<math>p=[1, 2]</math> y <math>θ=[0, 2\pi]</math>, por tanto sea la integral en polares:
<center><math>M=∫
0
2π

∫
0
1

(1+e
ρ
2
cosθ)ρdρdθ.</math></center>
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:22:31Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:Pregunta1_0.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Archivo:Pregunta1 0.jpeg

2025-12-03T16:22:13Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:20:05Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:
[[Archivo:apartado10| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a 1/p*eθ]]
{{matlab|codigo=
% Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
% Apartado 10
% Tensión tangencial respecto al plano ortogonal a e(theta)
tensiontangencialangulo = ((5*RR - 4) .* (RR.^2 - 1)) ./ (5 * RR.^5);
% Graficamos
contourf(x, y, tensiontangencialangulo, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión tangencial respecto al plano ortogonal a e(theta)');
colorbar;
grid on;
}}

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:18:43Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>. Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>
Su código en MATLAB y su representación sea la siguiente:

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:17:50Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>
Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math>(5\rho - 4)(\rho2-1)/5\rho5</math></center>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:17:17Z

Miguelangel.ibanez:

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>
Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':
<center><math> dfrag{(5\rho - 4)(\rho2-1){5\rho5}</math></center>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:11:46Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>
Sustituyendo en todos los valores sea el tensor tangencial al plano ortogonal a'''1/p*eθ''':

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:10:12Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ=1/p*(0,1)*\sigma*1/p*(0,1)</math>
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:08:17Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>

Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <center><math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math></center>
Posteriormente se calcula <math>eθ*\sigma*eθ</math>=
<center><math>1/p*(0,1)*\sigma*1/p*(0,1)</math></center>, siendo <math>\sigma=

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:07:18Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>
Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}</math>
Posteriormente se calcula <math>eθ*\sigma*eθ</math>=
<center><math>1/p*(0,1)*\sigma*1/p*(0,1)</math></center>, siendo <math>\sigma=

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:04:47Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>
Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <math>\sigma*eθ=\begin{pmatrix} 0\\(5\rho - 4)5\rho^3\end{pmatrix}
Posteriormente se calcula <math>eθ*\sigma*eθ

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:02:59Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:02:12Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>
Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de los cálculos sea <math>\sigma*eθ=\begin{pmatrix} 0\\dfrac{5\rho - 4}{5\rho^3}\end{pmatrix}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:01:33Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T16:00:17Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>
Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de os cálculos sea <math>\sigma*eθ=\begin{pmatrix} 0 & {5\rho - 4}{5\rho^3} \end{pmatrix}</math>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:58:43Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>
Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de os cálculos sea <math>\sigma*eθ=\begin{pmatrix}\ 0 & dfrac{5\rho - 4}{5\rho^3} \end{pmatrix}</math>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:58:11Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ} */

{{ TrabajoED | Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23) | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] |
*Javier Faus Gallegos
*Miguel Ángel Ibáñez Anchundia
*Guillermo Esteban Redondo }}

Un '''Campo de Temperaturas''' es un tipo de '''[https://es.wikipedia.org/wiki/Campo_escalar Campo Escalar]''' definido sobre un objeto físico para describir la temperatura existente en cada uno de sus puntos.

La visualización de un campo escalar puede realizarse con herramientas como [https://es.wikipedia.org/wiki/GNU_Octave Octave] y [https://es.wikipedia.org/wiki/MATLAB MATLAB], que emplean operaciones entre escalares y matrices para llevar a cabo cálculos de mayor complejidad.

==Creación de la superficie 2D==
Para poder mostrar el campo de temperaturas de un sólido en MATLAB, lo primero es construir una malla que represente la geometría del objeto. Esto se hace creando una red de puntos mediante la instrucción ''meshgrid'', propio de MATLAB.

Pensemos ahora en una discretización que modele los puntos internos de un sólido rectangular bidimensional, situado en el plano cartesiano XY (en este caso en coordenadas polares), utilizando un paso de muestreo <math>(h) = 1/10</math>.

En este caso, el arco esta comprendido entre los radios para: <math>p=[1,2]</math>, y el angulo en ''XY'', <math>𝜃=[0,π]</math>.

El código MATALB será el siguiente:
[[Archivo:Pregunta 1.jpeg|400px|miniaturadeimagen|Arco 2D]]
{{matlab|codigo=
%Primero definimos las variables que vamos a utilizar (ρ,θ) y h (paso de
%muestreo)
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
%Definimos los ejes, ajustandolos ambos a un tamaño equitativo para que sea
%proporcional la figura y establecemos con el comando view que se vea en 2D
axis equal;
axis([-3,3,-1.5,3]);
view(2);
hold on;
%Para dibujar la gráfico establecemos RR y AA como variables con meshgrid
[RR, AA] = meshgrid(r, angulo);
x = RR.*cos(AA);
y = RR.*sin(AA);
%Para evitar que aparezca el eje z reflejado ponemos 0.*x
mesh(x,y,0.*x);
%Añadimos finalmente información a los ejes y reflejamos la cuadrícula
xlabel('Eje X');
ylabel('Eje Y');
grid on;
hold off;
}}

==Representación de Campos Escalares==
El campo escalar de temperaturas de un objeto físico en 2D se obtiene designando un valor por medio una función a cada punto del mallado que previamente se ha creado para representar el objeto.
En este caso se ha generado una funcion dada en '''coordeandas polares''' <math>p</math>,<math>𝜃</math>
<center><math>T(p,𝜃) =−log((p−1)^2 + 0.1)</math></center>
[[Archivo:Pregunta_2.jpeg| 400px|miniaturadeimagen|Mallado del Campo Escalar]]
{{matlab|codigo=
%Mantemeos parte del apartado 1 solo que en vez de definir la malla del dominio nos centramos en representar la temperatura.
h = 0.1;
r = (1:h:2); angulo = (0:h:pi); %Parametrización
[RR, AA] = meshgrid(r, angulo); %Creacion del mallado
x = RR .* cos(AA); y = RR .* sin(AA);
axis equal; axis([-3,3,-1.5,3]);
view(2); hold on;
%Definimos la función Temperatura
T = (x - y).^2;
%Dibujo de la función T aplicada al dominio definido en el apartado 1.
contourf(x, y, T, 40);
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Calculo del ∇T y su representación==
Para el cálculo del gradiennte de un campo escalar dado en coordenadas polares (cilíndicas) sea

<center><math>∇T=∂T/∂p*ep+(1/r)*∂T/∂θ*eθ+∂T/∂z*ez</math></center>
Al no haber componente <math>ez</math> esta se anula, con el gradiente ya calculado se dibuja el campo vectorial. Este se realiza mediante la función quiver. Que utiliza cuatro variables. Las dos primeras (X;Y) serán desde donde va a partir el campo vectorial y las dos siguientes. (Gradientx, Gradiente) hacia donde va el vector.
[[Archivo:Pregunta_3.jpeg| 400px|miniaturadeimagen|Representación del ∇T]]
{{matlab|codigo=
%Mantenemos parte de la información del apartado 1 y 2
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
T = (x - y).^2;
axis equal; axis([-3,3,-1.5,3]);
hold on;
contourf(x, y, T, 40);
%Gradiente de T
[derivadaradio, derivadaangulo] = gradient(T, h, h);
%Como estamos en polares se tiene que dividir la derivada del angulo entre el radio
derivadaangulo = derivadaangulo ./ RR;
%Se convierten las coordenadas de polares a cartesianas para usar quiver
ux = derivadaradio .* cos(AA) - derivadaangulo .* sin(AA);
uy = derivadaradio .* sin(AA) + derivadaangulo .* cos(AA);
quiver(x, y, ux, uy, 'r');
xlabel('Eje X'); ylabel('Eje Y');
grid on; hold off
}}
==Representación del campo de vectores en los puntos del mallado del sólido==
El campo de vectores del mallado en este caso dado el vector
<center><math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math></center> puede representarse mediante el uso de MATLAB dado en coordenadas cilíndricas
[[Archivo:Pregunta4.jpeg| 400px|miniaturadeimagen|Representación de las líneas de nivel del campo escalar junto con el gradiente de dicho campo]]
{{matlab|codigo=
h = 0.1; r = (1:h:2); angulo=(0:h:pi); %Parametrización
[RR, AA]=meshgrid(r, angulo);
x=RR.*cos(M);
y=RR.*sin(M);
hold on; axis equal; axis([-3,3,-1.5,3]);
u=(1/5) (RR-1).* RR;
%Se calcula tanto ux como uy(1,3) de u tras multiplicarse por ep;
ux=u.*cos(AA);
uy=u.* sin(AA);
quiver(x, y, ux, uy, 'black');%Se dibuje la gráfica
xlabel("Eje= X"); ylabel("Eje Y");
grid off; hold off;
}}

==Representación del desplazamiento del campo ū==
En este caso se nos pide comparar la representación del campo escalar '''ū''', tras sufrir un desplazamineto, a través de la función '''subplot''' en MATLAB
Se define la nueva posición de las coordenadas X e YY sumándole dicho desplazamiento
[[Archivo:Pregunta_5.jpeg| 400px|miniaturadeimagen|Arco 2D desplazado]]

{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar
ux=u.*cos(AA); uy=u.*sin(AA);
%Definimos la nueva posición de las x mediante la suma de la original más el desplazamiento que sufre este.
xnuevo=x+ux; ynuevo=y+uy;
subplot(1,2,1) %Dibujenos priser el sólido original
mesh(xnuevo,ynuevo,0.*x);
axis equal; axis (-1,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
view(2)
}}

==Calculo de la ∇*u y su representación==
Dado el campo dado <math>u(p,𝜃)=1/5*(p − 1)p𝑒p</math> , dado que se encuentre en coordenadas cilíndricas para el cálculo de la divergencia,
se utilizara la siguiente fórmula:
<center><math>∇*ū=1/p*(∂/∂p*(pFp)+∂/∂𝜃*(F𝜃)+∂/∂z*(Fz))</math></center>
En este caso la componente '''ɞz''' se anula al no haber en el campo ū

A través de cálculos matemáticas sea la <math>∇*u= 1/5*(3p-2)</math>
Sea creciente con p, por tanto los puntos donde alcance una mayor divergencia sea en el borde ''''exterior'''' con p=2
===La representación de la divergencia del campo:===
[[Archivo:Pregunta_6.jpeg| 400px|miniaturadeimagen|Representación ∇*u]]
{{matlab|codigo=
h=0.1; r=(1:h:2);
angulo=(0:h:pi);
[RR, AA]=meshgrid(r, angulo); %Creación del mallado
x =RR.*cos(A); y=RA.*sin(AA);
u=(1/5)*(RR-1). *RR; %Campo escalar

%Se calcula la derivada de u respecto al radio. No hace falta calcularla
respecto al ángulo ya que como no esta incluida en la u original va a ser
[derivadau,valor_inecesario] = gradient(u, h, h);

%Calculamos la divergencia
divergencia=derivadau+u./ RR;

%Dibujanos la divergencia una vez que esta ya está calculada
contourf(x, y, divergencia, 20);
axis equal; axis([-3,3,-1.5,3]);
xlabel('Eje X'), ylabel('Eje Y'); grid on;
}}

==Cálculo del Rotacional del campo u==
Sea ∇×u el rotacional de un campo de desplazamientos expresado en un sistema de coordenadas en vectores unitarios ortogonales , dado nuestro campo en coordenadas cilíndricas se verifica que el rotacional del campo ''''u''' se calcule partir de la fórmula:
<math>\ \bigtriangledown \times \vec{u} = 1/p*\begin{vmatrix}\vec{ep} & \vec{peθ} &\vec{ez} \\ d/dp & d/dθ & d/dz\\ Fp & pFθ & Fz \end{vmatrix}</math>

En este caso el cálculo del ∇×u=0 por tanto su valor absoluto también será cero.
Debido a que en nuestro campo u no hay tanto componente '''eθ''' y '''ez''', se anula las derivadas parciales.

===Representación del valor absoluto del rotacional===
[[Archivo:Pregunta_7.jpeg| 600px|miniaturadeimagen|Repesentación del valor absoluto del rotacional]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 7
%Dividimos u respecto de r y el ángulo. Teniendo en cuenta que del ángulo
%es inexistente
urespectoradio = (1/5) * (RR - 1) .* RR;
urespectoangulo = 0;
%Calculamos las derivadas parciales
[derivadauradio, derivadauangulo] = gradient(urespectoradio, h, h);
%Calculamos el rotacional
rotacional = (1 ./ RR) .* derivadauangulo.* urespectoangulo - (1 ./ RR) .* derivadauangulo .* urespectoangulo;
%Como el enunciado pide el valor absoluto del rotacional y no el rotacional
rotacionalabs = abs(rotacional);
%Graficamos el rotacional
contourf(x, y, rotacionalabs, 20);
axis equal;
axis([-3,3,-1.5,3]);
xlabel('Eje X'); ylabel('Eje Y');
title('Rotacional en Valor Absoluto');
grid on;
colorbar;
}}
==Cálculo de tensiones normales==
<center><math>Sea</math></center>

<center><math>\sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math></center>
El tensor de tensiones asociado a un medio elástico, isótropo y homogéneo, donde <math>e=\frac{\bigtriangledown\vec{u}+\bigtriangledown\vec{u}^t}{2}</math> representa la parte simétrica del gradiente del campo vectorial <math>\vec u</math>. Tomando los coeficientes de Lamé <math>λ,µ =1</math> y considerando que <math>\bigtriangledown \cdot \vec{u}</math> es la divergencia del campo <math>\vec u</math>, es posible obtener las deformaciones proyectadas sobre los vectores de la base ortonormal orientada positivamente <math>{\vec i,\vec j,\vec k}</math>.
===Cálculo del gradiente del campo <math>\vec{u}</math>===
En este caso dado el campo, '''eθ''' y '''ez''' sean nulos.
En este caso para poder calcular el gradiente de un campo vectorial en este caso, en coordenadas cilíndricas sea a partir de esta fórmula.

∇u =\begin{pmatrix}dup/dp & 1/p*dup/dθ-uθ/p\\duθ/dp & 1/p*duθ/dθ+up/p\end{pmatrix}
<center><math>dup/dp=d/dp[1/5(p-1)p]=1/5(2p-1)</math></center>
<center><math>1/p*dup/dθ-up/p=1/p*0-0=0</math></center>
<center><math>dup/p=0</math></center>
<center><math>1/p*duθ/dθ+up/p=(p-1)/5</math></center>
De tal manera que ∇u =\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix}
Sea la traspuesta de ∇u igual a ∇u , por tanto sea el tensor de deformación simétrico sea:
<center><math>ɞ(t)=\begin{pmatrix}1/5*2p-1 & 0\\0 & 1/5*p-1\end{pmatrix} </math></center>
Considerando el tensor de deformación , siendo '''I''', la matriz identidad.
<math>sigma=λ\bigtriangledown \cdot \vec{u}1 + 2µe</math>

===Cálculo del Tensor de deformaciones <math>\sigma</math>===
Sea en el apartado 6, la divergencia sea <math>∇*u= 1/5*(3p-2)</math>, por tanto considerando que <math>λ,µ =1</math>, y sustituyendo la parte simétrica del gradiente sea
<center><math>\sigma=\begin{pmatrix}1/5*7p-4 & 0\\0 & 1/5*5p-4\end{pmatrix}</math></center>

===Representación de las tensiones normales===
Dibujar las tensiones normales en la dirección de '''ep''' y '''1/p*eθ'''
De tal manero que sea:
====Tensor normal radial====
<math>ơ radial=ep*ơ*ep</math>, sustituyendo los valores de ơ siendo '''ep=(1,0)''' esto se debe que al trabajar en coordenadas cilíndricas, la base física deba ser ortogonal y unitaria, considerando la base de referencia <math>{\vec i,\vec j,\vec k}</math>.
<center><math>ơ radial=1/5*(7p-4)</math></center>
====Tensor normal tangencial====
<math>ơtangencial=1/peθ*ơ*1/peθ</math>,sustituyendo los valores de ơ siendo '''eθ=(0,1)'''
<center><math>ơ tangencial=1/5p^2*(5p-4)</math></center>

Mediante la representación de MATLAB:
[[Archivo:Pregunta_8.jpeg| 700px|miniaturadeimagen|Representación de las tensiones normales]]
{{matlab|codigo=
%Mantenemos parte de la información de apartados anteriores
h = 0.1; r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA); y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar; grid on;
%Ahora vamos con la segunda
subplot(1,2,2); contourf(x, y, tensionnormal2, 20);
axis equal;
}}
==Cálculo de tensiones tangenciales==
Una vez calculadas las tensiones normales, nos interesa también calcular la tensión en su componente tangencial, es decir, aquella cuya dirección es paralela a la superficie del plano. Este dato es muy importante para saber qué partes de la superficie sufren más tensiones y así poder anticiparse a posibles fallos en las estructuras debidas a sobreesfuerzos de tensión.
===Respecto al plano ortogonal a <math>\vec{ep}</math>===
Seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\rho} \;-\; \left( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho} \right)\vec{e}_{\rho} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<center><math>\sigma = \begin{pmatrix}
\dfrac{7\rho - 4}{5} & 0 \\
0 & \dfrac{5\rho - 4}{5}
\end{pmatrix}
</math> 
Para simplificar la operación, la ejecutamos en varias partes. Primero calculamos el producto <math>\sigma·\vec{e_\rho}</math>, donde conocemos el vector <math>\vec{e_\rho}=\begin {pmatrix}1\\0\end{pmatrix}</math>. Por tanto: <math>\sigma \cdot \vec{e}_{\rho}
=
\begin{pmatrix}
\sigma_{\rho\rho} & 0 \\
0 & \sigma_{\theta\theta}
\end{pmatrix}
\begin{pmatrix}
1 \\ 0
\end{pmatrix}
=\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
El producto escalar <math>( \vec{e}_{\rho} \cdot \sigma \cdot \vec{e}_{\rho})</math> se corresponde con la tensión normal anteriormente calculada, que al multiplicar por el vector<math>\vec{e_\rho}=\begin{pmatrix}1\\0\end{pmatrix}</math> se obtiene como resultado:<math>\begin{pmatrix}\dfrac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}</math> 
Se aprecia entonces que ambos productos son iguales y al restarlos para calcular la tensión tangencial se anulan. Se concluye que: <math>\sigma \cdot \vec{e}_{p} - (\vec{e}_{p} \cdot \sigma \cdot \vec{e}_{p}) \, \vec{e}_{p} =
\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}-\begin{pmatrix}\frac{7\rho - 4}{5} \\[6pt]0\end{pmatrix}=\begin{pmatrix}0 \\[6pt]0\end{pmatrix}</math> 
Que la tensión tangencial resultante sea nula y unifome para toda la superficie, significa que las deformaciones que pueda sufrir la placa serán debidas exclusivamente a las tensiones normales, que serán las únicas que aplican esfuerzos sobre el anillo. En una situación real, eta información nos permitiría aplicar medidas para reducir los esfuerzos únicamente en la componente normal, e ignorar los tangenciales puesto que en ningún punto causarán deformación. 
Se representa en la siguiente gráfica la tensión tangencial. Naturalmente, el color sobre la superficie es uniforme puesto que aplica la misma tensión en toda su superficie.
[[Archivo:Pregunta_9.jpeg| 600px|miniaturadeimagen|Representación de las tensiones tangenciales respecto al plano ortogonal a ep]]
{{matlab|codigo=%Mantenemos parte de la información de apartados anteriores
h = 0.1;
r = (1:h:2);
angulo = (0:h:pi);
[RR, AA] = meshgrid(r, angulo);
x = RR .* cos(AA);
y = RR .* sin(AA);
%Apartado 8
%Calculamos las dos tensiones normales
tensionnormal1 = (7*RR - 4)/5;
tensionnormal2 = (5*RR - 4) ./ (5 * RR.^2);
%Graficamos ambas funciones usando subplot
subplot(1,2,1);
contourf(x, y, tensionnormal1, 20);
axis equal;
xlabel('Eje X'); ylabel('Eje Y');
title('Tensión normal radial');
colorbar;grid on;
%Ahora vamos con la segunda
subplot(1,2,2);
contourf(x, y, tensionnormal2, 20);
axis equal;}}
==Cálculo de las tensiones tangenciales respecto al plano ortogonal eθ==
Al igual que en el apartdao 9 seguimos trabajando sobre la misma superficie plana:
<math>\tau_{\rho} = \left|\, \sigma \cdot \vec{e}_{\θ} \;-\; \left( \vec{e}_{θ} \cdot \sigma \cdot \vec{e}_{θ} \right)\vec{e}_{θ} \,\right|</math> 
Además, el tensor de deformaciones <math>\sigma</math> ya lo conocemos pues fue calculado en el apartado anterior:
<math>\sigma = \begin{pmatrix}\dfrac{7\rho - 4}{5} & 0 \\0 & \dfrac{5\rho - 4}{5}\end{pmatrix}</math>
Donde en este caso sea <math> eθ =1/p*(0,1)</math>.
A partir de os cálculos sea <math>\sigma*eθ=\begin{pmatrix}\ 0 & dfrac{5\rho - 4}{5\rho.^3} \end{pmatrix}</math>

[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:53:57Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:51:59Z

Miguelangel.ibanez: /* Cálculo de las tensiones tangenciales respecto al plano ortogonal vec{eθ} */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:50:09Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:48:27Z

Miguelangel.ibanez: /* Cálculo de tensiones tangenciales */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:46:22Z

Miguelangel.ibanez: /* Cálculo de tensiones tangenciales */

Archivo:Pregunta 9.jpeg

2025-12-03T15:45:42Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:44:52Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-03T15:39:19Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:16:31Z

Miguelangel.ibanez: /* Representación de las tensiones normales */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:15:59Z

Miguelangel.ibanez: /* Tensor normal tangencial */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:15:29Z

Miguelangel.ibanez: /* Representación de las tensiones normales */

Archivo:Pregunta 8.jpeg

2025-12-02T20:15:04Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:12:07Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:10:29Z

Miguelangel.ibanez: /* Representación de las tensiones normales */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:09:04Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:02:02Z

Miguelangel.ibanez: /* Representación de las tensiones normales */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T20:01:32Z

Miguelangel.ibanez:

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T19:54:47Z

Miguelangel.ibanez: /* Cálculo del Tensor de deformaciones ơ */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T19:54:19Z

Miguelangel.ibanez: /* Cálculo del Tensor de deformaciones ơ */

Campos de temperaturas y deformaciones en superficie plana semicircular (Grupo 23)

2025-12-02T19:52:33Z

Miguelangel.ibanez: /* Cálculo del Tensor de deformaciones ơ */