<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="es">
		<id>https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Facundo+Perez</id>
		<title>MateWiki - Contribuciones del usuario [es]</title>
		<link rel="self" type="application/atom+xml" href="https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Facundo+Perez"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/Facundo_Perez"/>
		<updated>2026-04-23T15:44:13Z</updated>
		<subtitle>Contribuciones del usuario</subtitle>
		<generator>MediaWiki 1.26.2</generator>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_elasticidad_-_Grupo_A1&amp;diff=46557</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad - Grupo A1</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_elasticidad_-_Grupo_A1&amp;diff=46557"/>
				<updated>2021-12-04T18:43:23Z</updated>
		
		<summary type="html">&lt;p&gt;Facundo Perez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en elasticidad - Grupo A1 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Héctor Alcañiz Poyatos&amp;lt;br/&amp;gt;Iván Calle Rodríguez&amp;lt;br/&amp;gt;Facundo Pérez&amp;lt;br/&amp;gt;Cristina Ye Wang }}&lt;br /&gt;
Consideramos una placa rectangular plana (en dimensión 2) que ocupa la región &amp;lt;math&amp;gt;(x, y) ∈ [0, 10] × [−1, 1]&amp;lt;/math&amp;gt;. En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura &amp;lt;math&amp;gt;T(x, y)&amp;lt;/math&amp;gt;, que viene dada por,&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;T(x, y)=(x-3)^2+(10y)^2&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
y los desplazamientos &amp;lt;math&amp;gt;\vec{u}(x, y)&amp;lt;/math&amp;gt; producidos por la acción de una fuerza determinada. De esta forma, si definimos &amp;lt;math&amp;gt;\vec{r_{0}}(x, y)&amp;lt;/math&amp;gt; el vector de posición de los puntos de la placa antes de la deformación, la posición de cada punto &amp;lt;math&amp;gt;(x, y)&amp;lt;/math&amp;gt; de la placa después de la deformación viene dada por&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{r}(x, y)=\vec{r_{0}}(x, y)+\vec{u}(x, y)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Vamos a suponer que la fuerza aplicada sobre la placa ha provocado un desplazamiento de los puntos de la misma dado por el vector de desplazamientos&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{u}(x, y)=\frac{yf(x)}{20}\vec{i}-\frac{y^2}{40}\vec{j}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde &amp;lt;math&amp;gt;f(x)&amp;lt;/math&amp;gt; es una cierta función que no conocemos.&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 1 ==&lt;br /&gt;
Dibujar un mallado que represente los puntos interiores del sólido. Tomar los ejes (comando axis) en el rectángulo &amp;lt;math&amp;gt;(x, y) ∈ [−0.5; 10.5] × [−1.5; 1.5]&amp;lt;/math&amp;gt; y como paso de muestreo &amp;lt;math&amp;gt;h = 1/10&amp;lt;/math&amp;gt; para las variables &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt; e &amp;lt;math&amp;gt;y&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:E1_A1.png|500px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
% Definimos el paso de muestreo h para las variables x e y&lt;br /&gt;
h=1/10; &lt;br /&gt;
% Definimos los parámetros que definen la placa sólida: x e y&lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
% Creamos el mallado con las matrices X e Y&lt;br /&gt;
[X,Y]=meshgrid(x,y); &lt;br /&gt;
% Dibujamos la malla de puntos. mesh () es un comando que requiere de 3 elementos de entrada, por lo que la matriz Z será nula: 0 veces la matriz Y, por ejemplo&lt;br /&gt;
mesh(X,Y,0*Y)&lt;br /&gt;
% Utilizamos el comando axis (), pues queremos que el eje de abscisas vaya desde el -0.5 hasta el 10.5 y el eje Y desde el -1.5 hasta el 1.5&lt;br /&gt;
% Establecemos los límites de los ejes&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
% Escribimos el título del gráfico y los nombres de los ejes &lt;br /&gt;
title('Mallado');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
% Con el comando view (2), visuaizamos el mallado en 2 dimensiones&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 2 ==&lt;br /&gt;
Dibujar las curvas de nivel de la temperatura (comando ''contour'') y decidir en qué punto la temperatura es máxima a partir de la gráfica.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|500px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 3 ==&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;∇T&amp;lt;/math&amp;gt; y dibujarlo como campo vectorial. Observar gráficamente que &amp;lt;math&amp;gt;∇T&amp;lt;/math&amp;gt; es ortogonal a dichas curvas. ''(Nota: es muy importante que la escala de los ejes sea la misma para apreciar el que forman las curvas de nivel y el gradiente)''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|500px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 4 ==&lt;br /&gt;
Consideramos ahora el campo de desplazamientos &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;. Calcularlo sabiendo:&lt;br /&gt;
* Los puntos situados en el eje &amp;lt;math&amp;gt;x = 0&amp;lt;/math&amp;gt; no sufren desplazamiento en la dirección &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;∇ · \vec{u} = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|500px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 5 ==&lt;br /&gt;
Dibujar el campo de vectores en los puntos del mallado del sólido.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|500px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Sólido antes y después del desplazamiento ==&lt;br /&gt;
Dibujar el sólido antes y después del desplazamiento dado por el campo de vectores &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;. Dibujar ambos en la misma figura usando el comando ''subplot''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:DesIni_A6.png|500px|thumb|right|Situación antes del desplazamiento]]&lt;br /&gt;
[[Archivo:DesFin_A6.png|500px|thumb|right|Situación después del desplazamiento]]&lt;br /&gt;
[[Archivo:DesComp_A6.png|500px|thumb|right|Comparación entre ambas situaciones]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=0:h:10;          &lt;br /&gt;
y=-1:h:1;&lt;br /&gt;
&lt;br /&gt;
%Matriz de x e y&lt;br /&gt;
[Mx,My]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Vector desplazamiento&lt;br /&gt;
Ux=Mx.*My./20;&lt;br /&gt;
Uy=-(My.^2)./40;&lt;br /&gt;
&lt;br /&gt;
figure&lt;br /&gt;
&lt;br /&gt;
%Antes del desplazamiento&lt;br /&gt;
subplot(2,2,1)&lt;br /&gt;
mesh(Mx,My,0*My)&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2)&lt;br /&gt;
title('Situación inicial');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
&lt;br /&gt;
%Después del desplazamiento&lt;br /&gt;
subplot(2,2,2)&lt;br /&gt;
mesh(Mx+Ux,My+Uy,0*Uy)&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2)&lt;br /&gt;
title('Situación final');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
&lt;br /&gt;
%Comparación&lt;br /&gt;
subplot(2,2,3)&lt;br /&gt;
plot3(Mx,My,0*My)&lt;br /&gt;
hold on&lt;br /&gt;
plot3(Mx+Ux,My+Uy,0*Uy)&lt;br /&gt;
hold off&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2)&lt;br /&gt;
title('Comparación');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo vectorial sobre la placa ==&lt;br /&gt;
Dibujar &amp;lt;math&amp;gt;∇ · \vec{u}&amp;lt;/math&amp;gt;. Determinar analíticamente los puntos en los que la divergencia de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; es máxima, mínima y nula. La divergencia es una medida del cambio de volumen local debido al desplazamiento. ¿Se puede apreciar esto en la gráfica?&lt;br /&gt;
&lt;br /&gt;
En el apartado 4 se indica que la divergencia del desplazamiento es nula, por lo que ésta será nula en todos los puntos. En la representación la placa tendrá un color uniforme y no habrá cambio de volumen debido al desplazamiento en ningún punto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_A6.png|500px|thumb|right|Divergencia del desplazamiento]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de x e y&lt;br /&gt;
[Mx,My]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Según lo indicado en el apartado 4, la divergencia es nula&lt;br /&gt;
div=Mx.*0+My.*0;&lt;br /&gt;
&lt;br /&gt;
%Se puede representar la divergencia, pero la placa tendrá un color uniforme porque es nula&lt;br /&gt;
surf(Mx,My,div)&lt;br /&gt;
shading flat&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2);&lt;br /&gt;
title('Divergencia del vector desplazamiento (nula)');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
colorbar&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Rotacional del sólido ==&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|∇ × \vec{u}|&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarlo. ¿Qué puntos sufren un mayor rotacional?&lt;br /&gt;
&lt;br /&gt;
=== Cálculo del rotacional ===&lt;br /&gt;
&amp;lt;math&amp;gt;∇ × \vec{u}= \begin{vmatrix}\vec{i} &amp;amp; \vec{j}&amp;amp; \vec{k}\\ \frac{\partial }{\partial x} &amp;amp; \frac{\partial }{\partial y}&amp;amp; \frac{\partial }{\partial z}\\  u_{1}&amp;amp;  u_{2}&amp;amp; u_{3} \end{vmatrix} = \begin{vmatrix} \vec{i} &amp;amp; \vec{j} &amp;amp; \vec{z}\\  \frac{\partial }{\partial x} &amp;amp; \frac{\partial }{\partial y} &amp;amp;\frac{\partial }{\partial z} \\ \frac{yf(x)}{20} &amp;amp; -\frac{y^2}{40} &amp;amp; 0\end{vmatrix} = -\frac{f(x)}{20}\vec{k} &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
=== Cálculo del módulo del rotacional ===&lt;br /&gt;
&amp;lt;math&amp;gt;|∇ × \vec{u}|=\frac{f(x)}{20}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Representación del módulo del rotacional ===&lt;br /&gt;
Mientras que el rotacional se representa como un campo escalar, el módulo del rotacional se trata de un campo escalar. Como puede verse en la imagen adjunta, los puntos incrementan su módulo del rotacional según avanzan positivamente en el eje x. Así, los puntos de la placa con mayor módulo del rotacional será los situados en &amp;lt;math&amp;gt;x = 10&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:ModRot_A1.png|500px|thumb|right|Módulo del rotacional (campo escalar)]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de x e y&lt;br /&gt;
[Mx,My]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Cálculo del módulo del rotacional&lt;br /&gt;
rot=Mx./20;&lt;br /&gt;
&lt;br /&gt;
%Representación gráfica&lt;br /&gt;
surf(Mx,My,rot)&lt;br /&gt;
shading flat&lt;br /&gt;
axis equal&lt;br /&gt;
colorbar&lt;br /&gt;
view(2);&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
title('Módulo del rotacional');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Tensor de tensiones ==&lt;br /&gt;
Definamos &amp;lt;math&amp;gt;Ԑ(\vec{u}) = (∇\vec{u} + ∇\vec{u}t)/2&amp;lt;/math&amp;gt;, la parte simétrica del tensor gradiente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; conocido como tensor de deformaciones. En un medio elástico lineal, isótropo y homogéneo los desplazamientos&lt;br /&gt;
permiten escribir el tensor de tensiones &amp;lt;math&amp;gt;σ_{ij}&amp;lt;/math&amp;gt; a través de la fórmula &amp;lt;math&amp;gt;σ = λ∇ · \vec{u} 1 + 2 μԐ&amp;lt;/math&amp;gt;,&lt;br /&gt;
donde λ y μ son los conocidos como coeficientes de Lamé que dependen de las propiedades elásticas de cada material. A pesar de que los desplazamientos son planos (es decir &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; no tiene componente en la dirección de &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;) las tensiones no tienen por qué ser planas y puede haber tensiones en la dirección ortogonal al plano de la placa. Tomando &amp;lt;math&amp;gt;λ = μ = 1&amp;lt;/math&amp;gt;, dibujar las tensiones normales en la dirección que marca el eje &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;\vec{i}·σ·\vec{i}&amp;lt;/math&amp;gt;, las tensiones normales en la dirección que marca el eje &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;\vec{j}·σ·\vec{j}&amp;lt;/math&amp;gt; y las correspondientes al eje &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;\vec{k}·σ·\vec{k}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|500px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Tensiones tangenciales ==&lt;br /&gt;
Calcular las tensiones tangenciales respecto al plano ortogonal a &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;|σ·\vec{i} − (\vec{i}·σ·\vec{i})\vec{i}|&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|500px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Tensión de Von Mises ==&lt;br /&gt;
La tensión de Von Mises se define por la fórmula&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;σ_{VM}=\sqrt{\frac{(σ_{1}-σ_{2})^2+(σ_{2}-σ_{3})^2+(σ_{3}-σ_{1})^2}{2}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde &amp;lt;math&amp;gt;σ_{1}&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;σ_{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;σ_{3}&amp;lt;/math&amp;gt; son los autovalores de &amp;lt;math&amp;gt;σ&amp;lt;/math&amp;gt; (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).&lt;br /&gt;
&lt;br /&gt;
Sus valores aumentan una cantidad considerable al alejarse del eje Y y del eje X. Dado esto sus valores maximos son los que se dan en las esquinas de la derecha de la placa. Ambas tienen el mismo valor de 0.88318.&lt;br /&gt;
A continuacion se muestra su calculo en Octave/MatLab.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Mises.png|500px|thumb|right|Tension de Von Mises]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de X e Y&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
MVonM=0.*X;&lt;br /&gt;
&lt;br /&gt;
%Definimos la funcion de Von mises donde tp1,2,3 son las tensiones principales&lt;br /&gt;
VonMises=inline('(((tp1-tp2)^2+(tp2-tp3)^2+(tp3-tp1)^2)/2)^(1/2)','tp1','tp2','tp3');&lt;br /&gt;
[f,c]=size(X);&lt;br /&gt;
&lt;br /&gt;
%Le asignamos a la matriz MVonM los valores de la tension de Von Mises en cada punto&lt;br /&gt;
for i=1:f&lt;br /&gt;
 for j=1:c&lt;br /&gt;
  deformaciones=[[Y(i,j)/10;X(i,j)/20;0],[X(i,j)/20;-Y(i,j)/10;0],[0;0;0]];&lt;br /&gt;
  lamdas=eig(deformaciones);&lt;br /&gt;
  tp1=lamdas(1,1);&lt;br /&gt;
  tp2=lamdas(2,1);&lt;br /&gt;
  tp3=lamdas(3,1);&lt;br /&gt;
  MVonM(i,j)=VonMises(tp1,tp2,tp3);&lt;br /&gt;
 end&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%Graficamos&lt;br /&gt;
surf(X,Y,MVonM)&lt;br /&gt;
shading flat&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
title('Tension de Von Mises');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
view(2);&lt;br /&gt;
colorbar&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Campo de fuerzas que actúa sobre la placa ==&lt;br /&gt;
El campo de fuerzas &amp;lt;math&amp;gt;\vec{F}&amp;lt;/math&amp;gt; que actúa sobre la placa (y que son las causantes del desplazamiento observado) se aproxima usando la ecuación de la elasticidad lineal&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{F}=-∇· σ&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde &amp;lt;math&amp;gt;∇ · σ&amp;lt;/math&amp;gt; es el campo vectorial que se obtiene al hacer la divergencia de los vectores cuyas componentes son las filas de la matriz &amp;lt;math&amp;gt;σ&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo del campo de fuerzas ===&lt;br /&gt;
 &lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt; \vec F = -\frac{∂σji}{∂xj}\vec e = \frac{\frac{∂y}{10}}{∂x}\vec i+ \frac{\frac{∂x}{20}}{∂y}\vec i+ \frac{∂0}{∂z}\vec i+ \frac{\frac{∂x}{20}}{∂x}\vec j+ \frac{\frac{∂-y}{10}}{∂y}\vec j+ \frac{∂0}{∂z}\vec j + \frac{∂0}{∂x}\vec k  + \frac{∂0}{∂y}\vec k + \frac{∂0}{∂z}\vec k = - \frac{1}{20}\vec j + \frac{1}{10}\vec j&amp;lt;/math&amp;gt;&lt;br /&gt;
  &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec F =  \frac{1}{20}\vec j &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
En este caso el campo de fuerzas es uniforme en toda la placa, tiene un valor de 1/20 en la direccion de Y.&lt;br /&gt;
&lt;br /&gt;
=== Representación del campo de fuerzas ===&lt;br /&gt;
[[Archivo:FuerzasVerti.png|500px|thumb|right|Campo de fuerzas]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de X e Y&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Valor del campo de fuerzas para todos los puntos&lt;br /&gt;
F=1/20+Y.*0;&lt;br /&gt;
&lt;br /&gt;
%Graficamos&lt;br /&gt;
quiver(x,y,0.*X,F)&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
title('Campo de Fuerzas');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Facundo Perez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_elasticidad_-_Grupo_A1&amp;diff=46545</id>
		<title>Visualización de campos escalares y vectoriales en elasticidad - Grupo A1</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Visualizaci%C3%B3n_de_campos_escalares_y_vectoriales_en_elasticidad_-_Grupo_A1&amp;diff=46545"/>
				<updated>2021-12-04T17:50:32Z</updated>
		
		<summary type="html">&lt;p&gt;Facundo Perez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Visualización de campos escalares y vectoriales en elasticidad - Grupo A1 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC21/22|2021-22]] | Héctor Alcañiz Poyatos&amp;lt;br/&amp;gt;Iván Calle Rodríguez&amp;lt;br/&amp;gt;Facundo Pérez&amp;lt;br/&amp;gt;Cristina Ye Wang }}&lt;br /&gt;
Consideramos una placa rectangular plana (en dimensión 2) que ocupa la región &amp;lt;math&amp;gt;(x, y) ∈ [0, 10] × [−1, 1]&amp;lt;/math&amp;gt;. En ella vamos a suponer que tenemos definidas dos cantidades físicas: la temperatura &amp;lt;math&amp;gt;T(x, y)&amp;lt;/math&amp;gt;, que viene dada por,&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;T(x, y)=(x-3)^2+(10y)^2&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
y los desplazamientos &amp;lt;math&amp;gt;\vec{u}(x, y)&amp;lt;/math&amp;gt; producidos por la acción de una fuerza determinada. De esta forma, si definimos &amp;lt;math&amp;gt;\vec{ro}(x, y)&amp;lt;/math&amp;gt; el vector de posición de los puntos de la placa antes de la deformación, la posición de cada punto &amp;lt;math&amp;gt;(x, y)&amp;lt;/math&amp;gt; de la placa después de la deformación viene dada por&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{r}(x, y)=\vec{ro}(x, y)+\vec{u}(x, y)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Vamos a suponer que la fuerza aplicada sobre la placa ha provocado un desplazamiento de los puntos de la misma dado por el vector de desplazamientos&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{u}(x, y)=\frac{yf(x)}{20}\vec{i}-\frac{y^2}{40}\vec{j}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde &amp;lt;math&amp;gt;f(x)&amp;lt;/math&amp;gt; es una cierta función que no conocemos.&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 1 ==&lt;br /&gt;
Dibujar un mallado que represente los puntos interiores del sólido. Tomar los ejes (comando axis) en el rectángulo &amp;lt;math&amp;gt;(x, y) ∈ [−0.5; 10.5] × [−1.5; 1.5]&amp;lt;/math&amp;gt; y como paso de muestreo &amp;lt;math&amp;gt;h = 1/10&amp;lt;/math&amp;gt; para las variables &amp;lt;math&amp;gt;x&amp;lt;/math&amp;gt; e &amp;lt;math&amp;gt;y&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:E1_A1.png|400px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
% Definimos el paso de muestreo h para las variables x e y&lt;br /&gt;
h=1/10; &lt;br /&gt;
% Definimos los parámetros que definen la placa sólida: x e y&lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
% Creamos el mallado con las matrices X e Y&lt;br /&gt;
[X,Y]=meshgrid(x,y); &lt;br /&gt;
% Dibujamos la malla de puntos. mesh () es un comando que requiere de 3 elementos de entrada, por lo que la matriz Z será nula: 0 veces la matriz Y, por ejemplo&lt;br /&gt;
mesh(X,Y,0*Y)&lt;br /&gt;
% Utilizamos el comando axis (), pues queremos que el eje de abscisas vaya desde el -0.5 hasta el 10.5 y el eje Y desde el -1.5 hasta el 1.5&lt;br /&gt;
% Establecemos los límites de los ejes&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
% Escribimos el título del gráfico y los nombres de los ejes &lt;br /&gt;
title('Mallado');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
% Con el comando view (2), visuaizamos el mallado en 2 dimensiones&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 2 ==&lt;br /&gt;
Dibujar las curvas de nivel de la temperatura (comando ''contour'') y decidir en qué punto la temperatura es máxima a partir de la gráfica.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|400px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 3 ==&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;∇T&amp;lt;/math&amp;gt; y dibujarlo como campo vectorial. Observar gráficamente que &amp;lt;math&amp;gt;∇T&amp;lt;/math&amp;gt; es ortogonal a dichas curvas. ''(Nota: es muy importante que la escala de los ejes sea la misma para apreciar el que forman las curvas de nivel y el gradiente)''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|400px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 4 ==&lt;br /&gt;
Consideramos ahora el campo de desplazamientos &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt;. Calcularlo sabiendo:&lt;br /&gt;
* Los puntos situados en el eje &amp;lt;math&amp;gt;x = 0&amp;lt;/math&amp;gt; no sufren desplazamiento en la dirección &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;∇ · \vec{u} = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|400px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 5 ==&lt;br /&gt;
Dibujar el campo de vectores en los puntos del mallado del sólido.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|400px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Sólido antes y después del desplazamiento ==&lt;br /&gt;
Dibujar el sólido antes y después del desplazamiento dado por el campo de vectores &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;. Dibujar ambos en la misma figura usando el comando ''subplot''.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:DesIni_A6.png|500px|thumb|right|Situación antes del desplazamiento]]&lt;br /&gt;
[[Archivo:DesFin_A6.png|500px|thumb|right|Situación después del desplazamiento]]&lt;br /&gt;
[[Archivo:DesComp_A6.png|500px|thumb|right|Comparación entre ambas situaciones]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=0:h:10;          &lt;br /&gt;
y=-1:h:1;&lt;br /&gt;
&lt;br /&gt;
%Matriz de x e y&lt;br /&gt;
[Mx,My]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Vector desplazamiento&lt;br /&gt;
Ux=Mx.*My./20;&lt;br /&gt;
Uy=-(My.^2)./40;&lt;br /&gt;
&lt;br /&gt;
figure&lt;br /&gt;
&lt;br /&gt;
%Antes del desplazamiento&lt;br /&gt;
subplot(2,2,1)&lt;br /&gt;
mesh(Mx,My,0*My)&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2)&lt;br /&gt;
title('Situación inicial');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
&lt;br /&gt;
%Después del desplazamiento&lt;br /&gt;
subplot(2,2,2)&lt;br /&gt;
mesh(Mx+Ux,My+Uy,0*Uy)&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2)&lt;br /&gt;
title('Situación final');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
&lt;br /&gt;
%Comparación&lt;br /&gt;
subplot(2,2,3)&lt;br /&gt;
plot3(Mx,My,0*My)&lt;br /&gt;
hold on&lt;br /&gt;
plot3(Mx+Ux,My+Uy,0*Uy)&lt;br /&gt;
hold off&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2)&lt;br /&gt;
title('Comparación');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Divergencia del campo vectorial sobre la placa ==&lt;br /&gt;
Dibujar &amp;lt;math&amp;gt;∇ · \vec{u}&amp;lt;/math&amp;gt;. Determinar analíticamente los puntos en los que la divergencia de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; es máxima, mínima y nula. La divergencia es una medida del cambio de volumen local debido al desplazamiento. ¿Se puede apreciar esto en la gráfica?&lt;br /&gt;
&lt;br /&gt;
En el apartado 4 se indica que la divergencia del desplazamiento es nula, por lo que ésta será nula en todos los puntos. En la representación la placa tendrá un color uniforme y no habrá cambio de volumen debido al desplazamiento en ningún punto.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Div_A6.png|400px|thumb|right|Divergencia del desplazamiento]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de x e y&lt;br /&gt;
[Mx,My]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Según lo indicado en el apartado 4, la divergencia es nula&lt;br /&gt;
div=Mx.*0+My.*0;&lt;br /&gt;
&lt;br /&gt;
%Se puede representar la divergencia, pero la placa tendrá un color uniforme porque es nula&lt;br /&gt;
surf(Mx,My,div)&lt;br /&gt;
shading flat&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
view(2);&lt;br /&gt;
title('Divergencia del vector desplazamiento (nula)');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
colorbar&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Rotacional del sólido ==&lt;br /&gt;
Calcular &amp;lt;math&amp;gt;|∇ × \vec{u}|&amp;lt;/math&amp;gt; en todos los puntos del sólido y dibujarlo. ¿Qué puntos sufren un mayor rotacional?&lt;br /&gt;
&lt;br /&gt;
[[Archivo:ModRot_A1.png|400px|thumb|right|Módulo del rotacional (campo escalar)]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clc&lt;br /&gt;
clear&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definición de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de x e y&lt;br /&gt;
[Mx,My]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Cálculo del módulo del rotacional&lt;br /&gt;
rot=Mx./20;&lt;br /&gt;
&lt;br /&gt;
%Representación gráfica&lt;br /&gt;
surf(Mx,My,rot)&lt;br /&gt;
shading flat&lt;br /&gt;
axis equal&lt;br /&gt;
colorbar&lt;br /&gt;
view(2);&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
title('Módulo del rotacional');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y')&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 9 ==&lt;br /&gt;
Definamos &amp;lt;math&amp;gt;ɛ(\vec{u}) = (∇\vec{u} + ∇\vec{u}t)/2&amp;lt;/math&amp;gt;, la parte simétrica del tensor gradiente de &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; conocido como tensor de deformaciones. En un medio elástico lineal, isótropo y homogéneo los desplazamientos&lt;br /&gt;
permiten escribir el tensor de tensiones &amp;lt;math&amp;gt;σij&amp;lt;/math&amp;gt; a través de la fórmula &amp;lt;math&amp;gt;σ = λ∇ · \vec{u} 1 + 2µɛ&amp;lt;/math&amp;gt;,&lt;br /&gt;
donde λ y µ son los conocidos como coeficientes de Lamé que dependen de las propiedades elásticas de cada material. A pesar de que los desplazamientos son planos (es decir &amp;lt;math&amp;gt;\vec{u}&amp;lt;/math&amp;gt; no tiene componente en la dirección de &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;) las tensiones no tienen por qué ser planas y puede haber tensiones en la dirección ortogonal al plano de la placa. Tomando &amp;lt;math&amp;gt;λ = µ = 1&amp;lt;/math&amp;gt;, dibujar las tensiones normales en la dirección que marca el eje &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;\vec{i} · σ ·\vec{i}&amp;lt;/math&amp;gt;, las tensiones normales en&lt;br /&gt;
la dirección que marca el eje &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;\vec{j} · σ ·\vec{j}&amp;lt;/math&amp;gt; y las correspondientes al eje &amp;lt;math&amp;gt;\vec{k}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;\vec{k} · σ · \vec{k}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|400px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 10 ==&lt;br /&gt;
Calcular las tensiones tangenciales respecto al plano ortogonal a &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt;, es decir &amp;lt;math&amp;gt;|σ · \vec{i} − (\vec{i} · σ · \vec{i})\vec{i}|&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:.png|400px|thumb|right|Mallado]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 11 ==&lt;br /&gt;
La tensión de Von Mises se define por la fórmula&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;σVM=\sqrt{\frac{(σ1-σ2)^2+(σ2-σ3)^2+(σ3-σ1)^2}{2}}&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde &amp;lt;math&amp;gt;σ1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;σ2&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;σ3&amp;lt;/math&amp;gt; son los autovalores de σ (también conocidos como tensiones principales). Se trata de una magnitud escalar que se suele usar como indicador para saber cuando un material inicia un comportamiento plástico (y no elástico puro).&lt;br /&gt;
A continuacion se muestra su calculo en Octave/MatLab.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Mises.png|400px|thumb|right|Tension de Von Mises]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definiicon de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de X e Y&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
MVonM=0.*X;&lt;br /&gt;
%Definimos la funcion de Von mises donde tp1,2,3 son las tensiones principales&lt;br /&gt;
VonMises=inline('(((tp1-tp2)^2+(tp2-tp3)^2+(tp3-tp1)^2)/2)^(1/2)','tp1','tp2','tp3');&lt;br /&gt;
[f,c]=size(X);&lt;br /&gt;
&lt;br /&gt;
%Le asignamos a la matriz MVonM los valores de la tension de Von Mises en cada punto&lt;br /&gt;
for i=1:f&lt;br /&gt;
 for j=1:c&lt;br /&gt;
  deformaciones=[[Y(i,j)/10;X(i,j)/20;0],[X(i,j)/20;-Y(i,j)/10;0],[0;0;0]];&lt;br /&gt;
  lamdas=eig(deformaciones);&lt;br /&gt;
  tp1=lamdas(1,1);&lt;br /&gt;
  tp2=lamdas(2,1);&lt;br /&gt;
  tp3=lamdas(3,1);&lt;br /&gt;
  MVonM(i,j)=VonMises(tp1,tp2,tp3);&lt;br /&gt;
 end&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%Graficamos&lt;br /&gt;
surf(X,Y,MVonM)&lt;br /&gt;
shading flat&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
title('Tension de Von Mises');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
view(2);&lt;br /&gt;
colorbar&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Ejercicio 12 ==&lt;br /&gt;
El campo de fuerzas &amp;lt;math&amp;gt;\vec{F}&amp;lt;/math&amp;gt; que actúa sobre la placa (y que son las causantes del desplazamiento observado) se aproxima usando la ecuación de la elasticidad lineal&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{F}=-∇· σ&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
donde &amp;lt;math&amp;gt;∇ · σ&amp;lt;/math&amp;gt; es el campo vectorial que se obtiene al hacer la divergencia de los vectores cuyas componentes son las filas de la matriz &amp;lt;math&amp;gt;σ&amp;lt;/math&amp;gt;. Dibujar &amp;lt;math&amp;gt;\vec{F}&amp;lt;/math&amp;gt; e interpretar la gráfica.&lt;br /&gt;
En este caso el campo de fuerzas solo tiene componente en la direccion de Y.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; - \frac{∂σji}{∂xj}\vec e= \vec F= \frac{\frac{∂y}{10}}{∂x}\vec i+ \frac{\frac{∂x}{20}}{∂y}\vec i+ \frac{∂0}{∂z}\vec i+ \frac{\frac{∂x}{20}}{∂x}\vec j+ \frac{\frac{∂-y}{10}}{∂y}\vec j+ \frac{∂0}{∂z}\vec j + \frac{∂0}{∂x}\vec k  + \frac{∂0}{∂y}\vec k + \frac{∂0}{∂z}\vec k = - \frac{1}{20}\vec j + \frac{1}{10}\vec j = F =  \frac{1}{20}\vec j &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Archivo:FuerzasVerti.png|400px|thumb|right|Campo de fuerzas]]&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
%Limpieza de programas anteriores&lt;br /&gt;
clear&lt;br /&gt;
clc&lt;br /&gt;
close all&lt;br /&gt;
&lt;br /&gt;
%Definiicon de regiones&lt;br /&gt;
h=1/10; &lt;br /&gt;
x=[0:h:10];          &lt;br /&gt;
y=[-1:h:1];&lt;br /&gt;
&lt;br /&gt;
%Matriz de X e Y&lt;br /&gt;
[X,Y]=meshgrid(x,y);&lt;br /&gt;
&lt;br /&gt;
%Valor del campo de fuerzas para todos los puntos&lt;br /&gt;
F=1/20+Y.*0;&lt;br /&gt;
&lt;br /&gt;
%Graficamos&lt;br /&gt;
quiver(x,y,0.*X,F)&lt;br /&gt;
axis([-0.5,10.5,-1.5,1.5]);&lt;br /&gt;
axis equal&lt;br /&gt;
title('Campo de Fuerzas');&lt;br /&gt;
xlabel('Eje X');&lt;br /&gt;
ylabel('Eje Y');&lt;br /&gt;
view(2);&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC21/22]]&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;/div&gt;</summary>
		<author><name>Facundo Perez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Mises.png&amp;diff=46536</id>
		<title>Archivo:Mises.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Mises.png&amp;diff=46536"/>
				<updated>2021-12-04T17:27:53Z</updated>
		
		<summary type="html">&lt;p&gt;Facundo Perez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Facundo Perez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:FuerzasVerti.png&amp;diff=46535</id>
		<title>Archivo:FuerzasVerti.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:FuerzasVerti.png&amp;diff=46535"/>
				<updated>2021-12-04T17:27:02Z</updated>
		
		<summary type="html">&lt;p&gt;Facundo Perez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Facundo Perez</name></author>	</entry>

	</feed>